饕饕不绝的专栏

 先用API获得进程句柄,然后获得权限以后直接修改.........当初API入门的时候怀念ing......... Private Sub Command1_Click()If ToKen Then Text1 = "" Dim PID As Long, Num_Reset As Long, HStr As StringHStr = Right$("00000000"

 思路是先解压出来,目录可以自己指定,如果谁有更好的思路欢迎提供~~~~~~~3Q~~~~~ Dim AP$Public Sub GETPIC()Dim a$If Dir(AP & "CG_StillNPC_ID_Picture") = "" Then Exit SubIf Dir(AP & "临时储存区~", vbDirectory) = "" Then MkDi

 常数 值 描述 vbKeyLButton 1 鼠标左键 vbKeyRButton 2 鼠标右键 vbKeyCancel 3 CANCEL 键 vbKeyMButton 4 鼠标中键 vbKeyBack 8 BACKSPACE 键 vbKeyTab 9 TAB 键 vbKeyClear 12 CLEAR 键 vbKeyReturn 13 ENTER 键 vbKeyShift 16 SHIFT 键

 我们知道VB没有Delphi的直接可以改变透明度的属性,那么就需要使用API来实现了也~Private Const LWA_ALPHA = Private Const LWA_COLORKEY = Private Const GWL_EXSTYLE = -20Private Const WS_EX_LAYERED = ’定义一些常数，用于API函数的使用Pri