Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÄÜÔËÐгɹ¦,VB.NET¾Í³ö´íÁË.ÄÚ´æ¶ÁÈ¡ÎÊÌâ

VB.NET code:

If CheckBox1.Checked = True Then
nlen1 = Asc2Hex(Ô­Öµ, OldData1)
Call Asc2Hex(ÐÞ¸Ä, NewData1)

[color=#FF0000]ReadProcessMemory(pHandle, lOffset(0), rData1(0), nlen1, 0)[/color]

If ByteCmp(rData1, OldData1) Then
If CheckBox1.Checked = True Then
WriteProcessMemory(pHandle, lOffset(0), NewData1(0), nlen1, 0)
Call Play_Y.PlaySoundResource("Click_Ok.wav")
Me.Label1.Font = New Font(Me.Label1.Font, Me.Label1.Font.Style Or FontStyle.Bold)
End If
Else
If ByteCmp(rData1, NewData1) Then
If CheckBox1.Checked = False Then
WriteProcessMemory(pHandle, lOffset(0), OldData1(0), nlen1, 0)
Call Play_Y.PlaySoundResource("Click_No.wav")
Me.Label1.Font = New Font(Me.Label1.Font, Me.Label1.Font.Style And Not FontStyle.Bold)
End If
End If
End If
End If




ÔÚVB6ÏÂÔËÐÐOK,ÔÚVB.NETÏÂÔËÐоͳö´íÁË..

Ï£ÍûÓÐÈËÄܸæËßÎÒÒ»ÏÂ.лл
°Ñ API ReadProcessMemory(pHandle, lOffset(0), rData1(0), nlen1, 0)µÄÉùÃ÷Ìù³öÀ´,
È»ºó°ÑÄã´«Èë±äÁ¿µÄÀàÐÍÓëÖµµÄ´úÂëÌù³öÀ´

ÒòΪVB.N


Ïà¹ØÎÊ´ð£º

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......

VBÈçºÎÁªÏµÁ½¸ö´°Ì壿

¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......

vbÄÜ·ñ°Ñwinsock¿Ø¼þ·â×°µ½dllÖÐ

vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......

vb´òÓ¡×ÖÌåÏÔʾºÚÌå¼Ó´ÖÔõôÉèÖÃ

ÎÒÕâÑùд¶ÔÂð£¿


Printer.Font = "ºÚÌå¼Ó´Ö"

Printer.FontSize = 24 'ÉèÖÃÎÄ×ֵĴóС


Printer.Print "Æû³µÈ¼ÁÏÏûºÄÁ¿±êʶ"

VB code:

Private Sub Com ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ