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