VBÔõô¼ÓÃÜÄØ£¿
ÈçÌ⣬ллÁË
"VBÔõô¼ÓÃÜÄØ?" ÄãÖ¸Ëã·¨¼ÓÃÜ×Ö·û»¹ÊÇ×öºÃÈí¼þºóµÄ¼ÓÃܱ£»¤£¿
Ëã·¨¼ÓÃÜ×Ö·û¾Í¿´ÄãÔõôд£¬ ¡° ABC -> »»ËãºóµÃµ½ $2^ ¡± £¨½âÃܾͷ´¹ýÀ´)
×öºÃÈí¼þºóµÄ¼ÓÃܱ£»¤£¬ÕÒ¸ö¼Ó¿ÇÈí¼þ¾Í×îÈÝÒײ»¹ýÁË¡£
ͬÉÏ£¬ÒªËµÇå³þÊǼÓÃÜʲô
ÄãÒª¼ÓÃÜʲô£¬ÊÇÄãµÄVB³ÌÐò£¬»¹ÊdzÌÐòÖеÄÊý¾Ý
ÊÇÒª¼ÓÃܳÌÐò°É£¬¶ÁȡӲ¼þÐÅÏ¢×ö³ÉÐòÁкżÓÃÜ£¬²»¹ý»¹ÊÇÓüÓÃܹ·¼ÓÃܱȽϺÃ
ͨ³£µÄ¼ÓÃÜ·½·¨¾ÍÊÇÒì»òÀۼӺ͵ȷ½·¨ºÜ¶à¡£
ÄãÊÇÒª¶Ôʲô½øÐмÓÃÜÄØ£¿ËµµÄÏêϸµã°É£¬Éæ¼°µ½¼ÓÃܵÄËã·¨£¬ÄÚÈݺܶࡣ˵µÄÏêϸµã°É¡£
×î¼òµ¥µÄÊÇÓÃCHRºÍASC½øÐÐASCIIÂë¼ÓÃÜ»ò·´¼ÓÃÜ¡£
ÓÃXORº¯Êý£¬¼ÓÃÜ»ò·´¼ÓÃܲ»ÈÝÒ×ÆÆ½â£º
XOR¼ÓÃÜ´úÂëÈçÏ£º
'¼ÓÃÜ¡¢·´¼ÓÃÜÄ£¿é
Public Function StringEnDeCodecn(strSource As String, MA) As String
On Error GoTo ErrEnDeCode
Dim X As Single, CHARNUM As Long, RANDOMINTEGER As Integer, SINGLECHAR As String * 1
Dim strTmp As String
If MA < 0 Then MA = MA * (-1)
X = Rnd(-MA)
For i = 1 To Len(strSource) Step 1 'È¡µ¥×Ö½ÚÄÚÈÝ
SINGLECHAR = Mid(strSource, i, 1)
CHARNUM = Asc(SINGLECHAR)
g: RANDOMINTEGER = Int(127 * Rnd)
If RANDOMINTEGER < 30 Or RANDOMINTEGER > 100 Then GoTo g
CHARNUM = CHARNUM Xor RANDOMINTEGER
strTmp =
Ïà¹ØÎÊ´ð£º
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ΪʲôÎÒÏëÑ»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ
Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ
Do While Not TDBG_Dept.EOF
If A> ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......