Çë¿´ÒÔÏ´úÂë
dim s as string,t as long
¼ÓÃÜ
t=asc("ÈË")
t= t xor 52
s=chr(t)
½âÃÜ
t=asc(s)
t=t xor 52
s=chr(t)
ÕâÊÇÒ»¸öVB ¼ÓÃܽâÃÜ´úÂëµÄÌØÊâÀý×Ó,ÔÚÍøÉϺܶà.
¿ÉÊÇΪʲôÕâ¸ö´úÂë¾¼ÓÃÜ,È»ºó½â±Øºó"ÈË" ±äÒÔÁË" "(¼´S=""), ......
public interface IWebBrowser2
{
[DispId(200)]
object Application { [return: MarshalAs(UnmanagedType.IDispatch)] get; }
}
ת³ÉVB Ôõôд£¿
http://www.developerfusion.com/tools/convert/csharp-to-vb/
ÊÇת²»³öÀ´µÄ
¸ç¸ç °¡ ¶àл¾ÈÃü°¡
......
ÎÒÏë×öÒ»¸ö¼òµ¥µÄÍ¼Æ¬ÒÆ¶¯µÄ³ÌÐò
ûÌí¼ÓAniGif1µÄʱºò ´°Ìå¿ÉÒÔÕý³£ÏìÓ¦ keydownʼþ
¼ÓÈëÁ˿ؼþ form1 ¾ÍʧȥÁ˽¹µã²»ÄÜÕý³£ÏìÓ¦ÁË
ÏëÎÊϸ÷λ´óÏÀ Ôõô²ÅÄÜÈÃform1 Ò»Ö±»ñµÃ½¹µã£¿
VB code:
Private Sub form_keydown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
......
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
choice()
If Not IsNumeric(TextBox3.Text) Then
MsgBox("ÇëÊäÈëÒ»¸öÊý×Ö¡")
......
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
choice()
If Not IsNumeric(TextBox3.Text) Then
MsgBox("Please enter a number¡&qu ......
ÔÙ´ÎÌá³övb³ÌÐò½øÐÐipαװÎÊÌ⣨²»ÓôúÀí·½·¨£¬´úÀíÌ«Âý£¬²»ÏÖʵ£©
ÎÒÏëvb³ÌÐò·ÃÎÊ»òÕß·¢ÉúÊý¾Ýµ½Ö¸¶¨µÄÍøÕ¾£¬ÈøÃÍøÕ¾µÄ¡°Õ¾³¤Í³¼Æ¡±»ñÈ¡µÄipÊÇÎÒ×Ô¼ºÉ趨µÄ£¬ÇëÎÊÔõô´¦Àí£¬»òÕß˵³ýÁË´úÀí·½·¨ÊDz»ÊǾͲ»¿ÉÄÜʵÏÖÁË
´Û¸ÄHTTP±¨ÎÄÖеÄÍ·ÐÅÏ¢ÖеÄReferer
ºÜ¶àÍøÉÏͶƱ¿ÉÒÔ¿¿Õâ¸öÀ´ÊµÐжñÒâͶƱ¡£
°üÀ¨°Ù¶È¿Õ¼ ......