VB°æ Ö²Îï´óÕ½½©Ê¬ÐÞ¸ÄÆ÷
Ö²Îï´óÕ½½©Ê¬Õâ¸öСÓÎÏ·×öµÄ»¹Õæ²»´í£¬ÎÒ¿´µ½Á˼¸¸ö°æ±¾µÄÖ²Îï´óÕ½½©Ê¬ÐÞ¸ÄÆ÷£¬ÈçC++°æ£¬C#°æ£¬ËùÒԾ͸ÄдÁËÒ»¸öVB°æ±¾µÄ£¬ÒÔÏÂÊÇÔ´Âë
'½çÃæÖÐÓÐÁ½¸ö°´Å¥£¬·Ö±ðÊÇcmdSunUnlimited£¨captionΪÆôÓÃÑô¹âÎÞÏÞ£©£¬cmdMoneyUnlimited£¨captionΪÆôÓýðÇ®ÎÞÏÞ£©£¬²¢ÇÒÐèÒª·ÅÁ½¸öTimer¿Ø¼þ£¬Ãû³ÆÎªÄ¬ÈÏÖµtimer1ºÍtimer2
'»ùµØÖ·Ö±½Ó´ÓÆäËü¹¤³ÌÖлñÈ¡
Option Explicit
Private Declare Function ReadProcessMemory _
Lib "Kernel32.dll" (ByVal hProcess As Long, _
ByRef lpBaseAddress As Any, _
ByRef lpBuffer As Any, _
ByVal nSize As Long, _
ByRef lpNumberOfBytesWritten As Long) As Long
Private Declare Function WriteProcessMemory _
Lib "Kernel32.dll" (ByVal hProcess As Long, _
ByRef lpBaseAddress As Any, _
ByRef lpBuffer As Any, _
ByVal nSize As Long, _
ByRef lpNumberOfBytesWritten As Long) As Long
Private Declare Function OpenProcess _
Lib "Kernel32.dll" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "Kernel32.dll" (ByVal hObject As Long) As Long
Private Const baseAddress As Long = &H6A9EC0
Private Const processName As String = "PlantsVsZombies.exe"
Private Sub cmdMoneyUnlimited_Click() '½ðÇ®ÎÞÏÞ
If cmdMoneyUnlimited.Caption = "ÆôÓýðÇ®ÎÞÏÞ" Then
If GetPid = 0 Then
MsgBox "Ö²Îï´óÕ½½©Ê¬³ÌÐò»¹Î´´ò¿ª", vbInformation, "Ìáʾ"
Exit Sub
End If
cmdMoneyUnlimited.Caption = "Í£Ö¹ÆôÓýðÇ®ÎÞÏÞ"
Timer2.Interval = 1000
Timer2.Enab
Ïà¹ØÎĵµ£º
¿ÉÒÔɸѡÊý¾Ý£¬µ«²»ÄÜÊDZê×¼µÄSQLÓï¾ä£º
Me.DsUserManager1.Tables(0).Select("id > 5 and id <20")
---------------------------------------------------------------
1.ɸѡ£º
dataset.tables("tabname").select("id=1")'Ï൱ÓÚSQLÖÐWHEREºóµÄÌõ¼þÄÚÈÝ
2.±£´æµ½ÄÄ£¿Õâµ¹ÊDz»Öª ......
ÖØÊ°VBÖ®Èý£¬¶þ½øÖÆÎļþƪ
PMP ¹Ø¾¢ËÉ
¹íʹÉñ²î£¬09Äê12ÔÂÈëÖ°µÄ¹«Ë¾ÈÔʹÓÃVB¿ª·¢Èí¼þ£¬ËäÈ»²¢·Çרְ¿ª·¢£¬µ«Ò²²»µÃ²»ÔÚʸô4ÄêÖ®ºó£¬ÖØÐÂʹÓÃVB¡£
¶ÁÈ¡¡¢Ð޸Ķþ½øÖÆÎļþÈÔÊǴ󲿷ֱà³ÌÓïÑԵĻù±¾¿ª·¢¼¼ÄÜ¡£¿ÉÒÔÌá¸ß´¦ÀíÎļþЧÂÊ£¬Ö÷ÒªÓ¦ÓÃÔÚͨÐÅ¡¢½»»»Êý¾ÝµÈ·½Ãæ¡£
'open filena ......
¼òµ¥¶øÊµÓõĺϲ¢ExcelÎļþµÄº¯Êý£¬Äܹ»½«¶à¸öXLSÎļþÖÐÖ¸¶¨ÊýÁ¿µÄ¹¤×÷±í×Ô¶¯ºÏ²¢µ½Ò»¸öXLSÎļþÀï¡£µ±È»£¬Èç¹ûÖ»ÊÇÊý¾ÝºÏ²¢£¬ÔòʹÓÃADO¾Í¿ÉÒÔʵÏÖ£¬µ«Èç¹ûÒª±£Áô±í¸ñ¸ñʽ£¬Ôò¿ÖÅÂÖ»ÄÜʹÓð³µÄ·½·¨ÁË¡£
Ò»¡¢º¯Êý´úÂ룺
Option Explicit
'* ********************************************************* ......
'* ************************************************************** *
'* ³ÌÐòÃû³Æ£ºmodNtSrv
'* ³ÌÐò¹¦ÄÜ£ºÊµÏÖNT·þÎñ
'* ×÷Õߣºlyserver
'* ÁªÏµ·½Ê½£ºhttp://blog.csdn.net/lyserver
'* ************************************************************** *
Option Explicit
' ......
Óɵ×ÖÁÉÏÊÇ£º
• ÍйÜ×ÊÔ´
• WMI »ù´¡½á¹¹
• ʹÓÃÕß
ÍйÜ×ÊÔ´
ÍйÜ×ÊÔ´ÊÇÈÎÒâÂß¼»òÎïÀí×é¼þ£¬Í¨¹ýʹÓà WMI ½øÐй«¿ªºÍ¹ÜÀí¡£¿ÉÒÔʹÓà WMI ¹ÜÀíµ ......