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
Ïà¹ØÎĵµ£º
VB¶ÔINIÎļþ²Ù×÷
2009-02-25 00:17
INI ÎļþÊÇʲôÑù×Ó£¿——²»»á°É£¬Õⶼ²»ÖªµÀ¡£INI Îļþ¾ÍÊÇ Windows Öг£¼û
µÄÒÔ .ini ΪÀ©Õ¹ÃûµÄÎļþ£¬ÆäÄÚ²¿¸ñʽºÍ¸÷²¿·ÖµÄÃû³ÆÈçÏ£º
[Section1]
Key1=Value1
Key2=Value2
Key3=Vlaue3
[Section2]
Key1=Value1
Key2=Value5
Key4=Value4
Key5=...
...
& ......
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info= ......
±¨¸æÊé
Ãû³Æ
ʵÑé10-1 ʵÏÖ¼ÆËãÆ÷µÄ¹¦ÄÜ
ÐÕÃû
Ö¸µ¼½Ìʦ
ѧºÅ
ÈÕÆÚ
ÈÎÎñÇåµ¥
ÔÚ±¾Á·Ï°ÖУ¬Ä㽫ʹ»æÖƵļÆËãÆ÷Íê³É¼òµ¥µÄËÄÔòÔËËã¡£
1) Æô¶¯Visual Studio 2005¡£
2) н¨Ò»¸öVB WindowsÓ ......
VBA
ÃüÃû¹æÔò¼°´úÂë¹æ·¶
Âíά·å
(maweifeng@263.net
)
1.
VBA
ÃüÃû¹æÔò
Ò»¸öºÃµÄÃüÃû¹æÔò¿ÉÒÔÌá¸ß³ÌÐòµÄ¿É¶ÁÐÔ£¬¼õÉÙ´íÎó·¢ÉúµÄ¸ÅÂÊ£¬ÃüÃû¹æÔò²»ÊÇÒ»¶¨µÄ£¬²»Í¬µÄÈËÓв»Í¬µÄ¹æÔòºÍÏ°¹ß£¬µ«ÔÚ±à³Ì¹ý³ÌÖУ¬¶ÔÓÚ¸öÈË»ò¹¤×÷×飬һ¶¨Òª×ñÊØÏàͬµÄÃüÃû¹æÔò¡£
1.1. ......
http://blog.csdn.net/cw198624/archive/2009/02/19/3911759.aspx
Ìí¼ÓÒ»¸öListBoxºÍÒ»¸ö°´Å¥
Option Explicit
Private Declare Function CloseHandle Lib "kernel32" (ByVal Handle As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As L ......