你好:

     感谢你访问我的 Blog ,本博客只提供博主的技术经验分享,你可以在此做简单的留言和评论,我会抽空回复你;若是要深入交流探讨,请联系QQ:47853253或者加QQ群:12012081


 

QQradmin v1.0     >>>内网穿透  >>>>>>>>>>AU3  封装  

regwrite ("HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","QQradmin","REG_SZ",@ScriptFullPath)

regwrite ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","QQradmin","REG_SZ",@ScriptFullPath)

RegDelete ("HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","QQradmin")

RegDelete ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","QQradmin")

 

 

 

aauto.au3:

#NoTrayIcon

#Region ;**** 由 AccAu3Wrapper_GUI 创建指令 ****

#AccAu3Wrapper_OutFile=aauto.exe

#AccAu3Wrapper_UseUpx=Y

#AccAu3Wrapper_UseX64=n

#AccAu3Wrapper_Res_Language=2052

#AccAu3Wrapper_Res_requestedExecutionLevel=None

#AccAu3Wrapper_Run_Obfuscator=Y

#Obfuscator_Parameters=/cs=1 /cn=1 /cf=1 /cv=1 /sf=1 /sv=1 /sci=1

#AccAu3Wrapper_DBSupport=y

#EndRegion ;**** 由 AccAu3Wrapper_GUI 创建指令 ****

Opt("TrayMenuMode", 3) 

Dim $fail

While  1

If WinExists("[TITLE:Radmin security: 127.0.0.1;CLASS:#32770]","") Then 

Sleep (300)

WinActivate ("[TITLE:Radmin security: 127.0.0.1;CLASS:#32770]","")

Sleep (300)

Send("qq")

Sleep(300)

Send("{TAB}")

Sleep(500)

Send("47853253")

Sleep(300)

Send("{ENTER}")  

Sleep(3000)

Else

$fail= 1

If @OSArch = "x64" Then

RegWrite ("HKLM64\SOFTWARE\QQradmin","fail","REG_SZ",$fail)

Else

RegWrite ("HKLM\SOFTWARE\QQradmin","fail","REG_SZ",$fail)

EndIf

Sleep (3000)

WinClose ("[TITLE:Connection info;CLASS:#32770]","")

EndIf

WEnd

 

 

 

 

 QQradmin v1.0.au3:

#Region ;**** 由 AccAu3Wrapper_GUI 创建指令 ****

#AccAu3Wrapper_Icon=..\..\..\..\tools\高清ico\Untitled - 1.ico

#AccAu3Wrapper_OutFile=QQradmin.exe

#AccAu3Wrapper_UseUpx=Y

#AccAu3Wrapper_UseX64=n

#AccAu3Wrapper_Res_Language=2052

#AccAu3Wrapper_Res_requestedExecutionLevel=None

#AccAu3Wrapper_Run_Obfuscator=Y

#Obfuscator_Parameters=/cs=1 /cn=1 /cf=1 /cv=1 /sf=1 /sv=1 /sci=1

#AccAu3Wrapper_DBSupport=y

#EndRegion ;**** 由 AccAu3Wrapper_GUI 创建指令 ****

#include <Constants.au3> 

#include <WinAPIFiles.au3>

#include <FileConstants.au3>

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

;Opt("TrayMenuMode", 3) 

Opt("TrayIconHide", 1)

Opt("TrayMenuMode",1)

Opt("TrayOnEventMode",1)

TraySetOnEvent($TRAY_EVENT_PRIMARYUP,"tray")

Dim $autorun,$autoserver,$code,$member,$mini

regmsg ()

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("QQradmin v1.0", 477, 257, 368, 398)

GUISetBkColor(0xA6CAF0)

$Input1 = GUICtrlCreateInput($code,176, 32, 265, 44)

GUICtrlSetFont(-1, 23, 800, 0, "微软雅黑")

GUICtrlSetColor(-1, 0x3399FF)

;GUICtrlSetBkColor(-1, 0xFFFF00)

$Button1 = GUICtrlCreateButton("协助", 32, 123, 115, 41)

GUICtrlSetFont(-1, 16, 800, 0, "微软雅黑")

GUICtrlSetColor(-1, 0x3399FF)

;GUICtrlSetBkColor(-1, 0xFFFF00)

$Label1 = GUICtrlCreateLabel("验证码:", 32, 32, 135, 44,$SS_CENTER)

GUICtrlSetFont(-1, 23, 800, 0, "微软雅黑",$SS_CENTER)

GUICtrlSetColor(-1, 0x3399FF)

;GUICtrlSetBkColor(-1, 0xFFFF00)

$Button2 = GUICtrlCreateButton("被协助", 327, 123, 115, 41)

GUICtrlSetFont(-1, 16, 800, 0, "微软雅黑")

GUICtrlSetColor(-1, 0x3399FF)

;GUICtrlSetBkColor(-1, 0xFFFF00)

GUICtrlSetCursor (-1, 2)

$Button3 = GUICtrlCreateButton("退出", 212, 135, 60, 28)

GUICtrlSetFont(-1, 10, 800, 0, "微软雅黑")

GUICtrlSetColor(-1, 0x3399FF)

$edit1 = GUICtrlCreateEdit("", 32, 176, 412, 73)

$Checkbox1 = GUICtrlCreateCheckbox("自动应用被协助", 130, 96, 113, 17)

GUICtrlSetFont(-1, 10, 800, 0, "微软雅黑")

GUICtrlSetColor(-1, 0xFFFF00)

If $autoserver=1 Then 

GUICtrlSetState($Checkbox1,$GUI_CHECKED)

EndIf

$Checkbox2 = GUICtrlCreateCheckbox("记住验证码", 32, 96, 97, 17)

GUICtrlSetFont(-1, 10, 800, 0, "微软雅黑")

If $member=1 Then 

GUICtrlSetState($Checkbox2,$GUI_CHECKED)

EndIf

$Checkbox3 = GUICtrlCreateCheckbox("开机自启动", 252, 96, 97, 17)

GUICtrlSetFont(-1, 10, 800, 0, "微软雅黑")

If $autorun=1 Then 

GUICtrlSetState($Checkbox3,$GUI_CHECKED)

EndIf

$Checkbox4 = GUICtrlCreateCheckbox("启动后最小化", 350, 96, 97, 17)

GUICtrlSetFont(-1, 10, 800, 0, "微软雅黑")

If $mini=1 Then 

GUICtrlSetState($Checkbox4,$GUI_CHECKED)

GUISetState(@SW_HIDE, $Form1)

Opt("TrayIconHide", 0)

else

GUISetState(@SW_SHOW)

EndIf

#EndRegion ### END Koda GUI section ###

traytip("",">>>>>QQradmin正在启动<<<<<",30)

If $autoserver = 1 Then

If $code = "" Then

traytip("",">>>>>验证码不正确<<<<<",30)

GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & ">>>>>>>>>验证码不正确~!<<<<<<<<<<<" & @CRLF)

Else

GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & ">>>>>>>>>正在打洞,穿透内网~!<<<<<<<<<<<" & @CRLF)

Sleep(500)

GUICtrlSetState($Button2, $gui_disable)

GUICtrlSetState($Button1, $gui_disable)

GUICtrlSetState($Input1, $gui_disable)

server ()

GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & ">>>>>>>>>准备就绪,等待连接~!<<<<<<<<<<<" & @CRLF)

EndIf

EndIf

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $Checkbox2

If BitAND(GUICtrlRead($Checkbox2), $GUI_CHECKED) Then

$member=1

       $code=GUICtrlRead ($Input1)

If @OSArch = "x64" Then 

RegWrite("HKLM64\SOFTWARE\QQradmin","code","REG_SZ",$code)

RegWrite("HKLM64\SOFTWARE\QQradmin","member","REG_SZ",$member)

Else 

RegWrite("HKLM\SOFTWARE\QQradmin","code","REG_SZ",$code)

RegWrite("HKLM\SOFTWARE\QQradmin","member","REG_SZ",$member)

EndIf

Else 

$member=0

If @OSArch = "x64" Then 

Regdelete("HKLM64\SOFTWARE\QQradmin","code")

Regdelete("HKLM64\SOFTWARE\QQradmin","member")

Else 

RegDelete("HKLM\SOFTWARE\QQradmin","code")

Regdelete("HKLM\SOFTWARE\QQradmin","member")

EndIf

EndIf

Case $Checkbox1

If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then

$autoserver=1

If @OSArch = "x64" Then 

RegWrite("HKLM64\SOFTWARE\QQradmin","autoserver","REG_SZ",$autoserver)

Else 

RegWrite("HKLM\SOFTWARE\QQradmin","autoserver","REG_SZ",$autoserver)

EndIf

Else

$autoserver=0

If @OSArch = "x64" Then 

Regdelete("HKLM64\SOFTWARE\QQradmin","autoserver")

Else 

RegDelete("HKLM\SOFTWARE\QQradmin","autoserver")

EndIf

EndIf

Case $Checkbox3

If BitAND(GUICtrlRead($Checkbox3), $GUI_CHECKED) Then

   $autorun = 1

If @OSArch = "x64" Then 

RegWrite("HKLM64\SOFTWARE\QQradmin","autorun","REG_SZ",$autorun)

regwrite ("HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","QQradmin","REG_SZ",@ScriptFullPath)

Else 

RegWrite("HKLM\SOFTWARE\QQradmin","autorun","REG_SZ",$autorun)

regwrite ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","QQradmin","REG_SZ",@ScriptFullPath)

EndIf

Else

$autorun = 0

If @OSArch = "x64" Then

Regdelete("HKLM64\SOFTWARE\QQradmin","autorun")

RegDelete ("HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","QQradmin")

Else 

RegDelete("HKLM\SOFTWARE\QQradmin","autorun")

RegDelete ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","QQradmin")

EndIf

EndIf

Case $Checkbox4

If BitAND(GUICtrlRead($Checkbox4), $GUI_CHECKED) Then

   $mini = 1

If @OSArch = "x64" Then 

RegWrite("HKLM64\SOFTWARE\QQradmin","mini","REG_SZ",$mini)

Else 

RegWrite("HKLM\SOFTWARE\QQradmin","mini","REG_SZ",$mini)

EndIf

Else

$mini = 0

If @OSArch = "x64" Then

Regdelete("HKLM64\SOFTWARE\QQradmin","mini")

Else 

RegDelete("HKLM\SOFTWARE\QQradmin","mini")

EndIf

EndIf

Case    $GUI_EVENT_CLOSE

GUISetState(@SW_HIDE, $Form1)

            Opt("TrayIconHide", 0)

Case    $Button3

regwr ()

ProcessClose("aauto.exe")

ProcessClose("dtunnel.exe")

            ProcessClose("radmin2017.exe")

Sleep (1500)

            FileDelete(@TempDir&"\47853253\radmin2017.exe")

            FileDelete(@TempDir&"\47853253\dtunnel_s.exe")

FileDelete(@TempDir&"\47853253\dtunnel.exe")

FileDelete(@TempDir&"\47853253\aauto.exe")

            DirRemove(@TempDir&"\47853253")

ExitLoop

Exit 

Case    $GUI_EVENT_MINIMIZE

            GUISetState(@SW_HIDE, $Form1)

            Opt("TrayIconHide", 0)

Case    $Button1

            WinSetTitle("QQradmin v1.0", "", "QQradmin v1.0---协助端")

Sleep (200)

$code=GUICtrlRead ($Input1)

If $code = "" Then

traytip("",">>>>>验证码不正确<<<<<",30)

GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & ">>>>>>>>>验证码不正确~!<<<<<<<<<<<" & @CRLF)

Else

GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & ">>>>>>>>>正在建立连接~!<<<<<<<<<<<" & @CRLF)

GUICtrlSetState($Button2, $gui_disable)

GUICtrlSetState($Button1, $gui_disable)

GUICtrlSetState($Input1, $gui_disable)

ProcessClose("aauto.exe")

Sleep (200)

If @OSArch = "x64" Then

RegDelete ("HKLM64\SOFTWARE\QQradmin","fail")

            Else

       RegDelete ("HKLM\SOFTWARE\QQradmin","fail")

EndIf

Sleep (200)

            FileInstall("aauto.exe",@TempDir&"\47853253\aauto.exe",$FC_OVERWRITE)

Run (@TempDir&"\47853253\aauto.exe")

ctrol ()

Sleep(200)

If @OSArch = "x64" Then

$fail=RegRead ("HKLM64\SOFTWARE\QQradmin","fail")

            Else

       $fail=RegRead ("HKLM\SOFTWARE\QQradmin","fail")

EndIf

If $fail = 1 Then 

GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & ">>>>>>>>>没有连接成功,请重新连接~!<<<<<<<<<<<" & @CRLF)

regwr ()

ProcessClose("aauto.exe")

ProcessClose("dtunnel.exe")

            ProcessClose("radmin2017.exe")

Sleep (1000)

GUICtrlSetState($Button2, $gui_enable)

GUICtrlSetState($Button1, $gui_enable)

GUICtrlSetState($Input1, $gui_enable)

Else

GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & ">>>>>>>>>连接成功,开始radmin远程~!<<<<<<<<<<<" & @CRLF)

Sleep(1000)

GUISetState(@SW_HIDE, $Form1)

            Opt("TrayIconHide", 0)

regwr ()

Sleep(1000)

ProcessWaitClose("radmin2017.exe")

GUICtrlSetState($Button2, $gui_enable)

GUICtrlSetState($Button1, $gui_enable)

GUICtrlSetState($Input1, $gui_enable)

GUISetState(@SW_SHOW, $Form1)

            Opt("TrayIconHide", 0)

EndIf

EndIf 

Case    $Button2

WinSetTitle("QQradmin v1.0", "", "QQradmin v1.0---被协助端")

Sleep(500)

$code=GUICtrlRead ($Input1)

If $code = "" Then

traytip("",">>>>>验证码不正确<<<<<",30)

GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & ">>>>>>>>>验证码不正确~!<<<<<<<<<<<" & @CRLF)

Else

GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & ">>>>>>>>>正在打洞,穿透内网~!<<<<<<<<<<<" & @CRLF)

Sleep(500)

GUICtrlSetState($Button2, $gui_disable)

GUICtrlSetState($Button1, $gui_disable)

GUICtrlSetState($Input1, $gui_disable)

server ()

GUICtrlSetData($Edit1, GUICtrlRead($Edit1) & ">>>>>>>>>准备就绪,等待连接~!<<<<<<<<<<<" & @CRLF)

Sleep(3000)

GUISetState(@SW_HIDE, $Form1)

            Opt("TrayIconHide", 0)

regwr ()

EndIf

EndSwitch

WEnd

 

 

 

Func regmsg ()

If @OSArch = "x64" Then

$code=RegRead("HKLM64\SOFTWARE\QQradmin","code")

$autoserver= RegRead ("HKLM64\SOFTWARE\QQradmin","autoserver")

$autorun = RegRead ("HKLM64\SOFTWARE\QQradmin","autorun")

$member=RegRead("HKLM64\SOFTWARE\QQradmin","member")

$mini=RegRead("HKLM64\SOFTWARE\QQradmin","mini")

Else

$code=RegRead("HKLM\SOFTWARE\QQradmin","code")

$autoserver= RegRead ("HKLM\SOFTWARE\QQradmin","autoserver")

$autorun = RegRead ("HKLM\SOFTWARE\QQradmin","autorun")

$member=RegRead("HKLM\SOFTWARE\QQradmin","member")

$mini=RegRead("HKLM\SOFTWARE\QQradmin","mini")

EndIf

EndFunc

 

Func regwr ()

If @OSArch = "x64" Then

If $member = 1 Then 

$code=GUICtrlRead ($Input1)

RegWrite("HKLM64\SOFTWARE\QQradmin","code","REG_SZ",$code)

RegWrite("HKLM64\SOFTWARE\QQradmin","member","REG_SZ",$member)

Else

Regdelete("HKLM64\SOFTWARE\QQradmin","code")

Regdelete("HKLM64\SOFTWARE\QQradmin","member")

EndIf

If $autorun = 1 Then 

   RegWrite("HKLM64\SOFTWARE\QQradmin","autorun","REG_SZ",$autorun)

regwrite ("HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","QQradmin","REG_SZ",@ScriptFullPath)

Else

RegDelete ("HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","QQradmin")

Regdelete("HKLM64\SOFTWARE\QQradmin","autorun")

EndIf

If $autoserver=1 Then 

RegWrite("HKLM64\SOFTWARE\QQradmin","autoserver","REG_SZ",$autoserver)

Else 

Regdelete("HKLM64\SOFTWARE\QQradmin","autoserver")

EndIf

If $mini=1 Then 

RegWrite("HKLM64\SOFTWARE\QQradmin","mini","REG_SZ",$mini)

Else 

Regdelete("HKLM64\SOFTWARE\QQradmin","mini")

EndIf

Else

If $member = 1 Then 

$code=GUICtrlRead ($Input1)

RegWrite("HKLM\SOFTWARE\QQradmin","code","REG_SZ",$code)

RegWrite("HKLM\SOFTWARE\QQradmin","member","REG_SZ",$member)

Else

            Regdelete("HKLM\SOFTWARE\QQradmin","code")

Regdelete("HKLM\SOFTWARE\QQradmin","member")

EndIf

If $autorun = 1 Then 

   RegWrite("HKLM\SOFTWARE\QQradmin","autorun","REG_SZ",$autorun)

regwrite ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","QQradmin","REG_SZ",@ScriptFullPath)

Else

Regdelete("HKLM\SOFTWARE\QQradmin","autorun")

RegDelete ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","QQradmin")

EndIf

If $autoserver=1 Then 

RegWrite("HKLM\SOFTWARE\QQradmin","autoserver","REG_SZ",$autoserver)

Else

Regdelete("HKLM\SOFTWARE\QQradmin","autoserver")

EndIf

If $mini=1 Then 

RegWrite("HKLM\SOFTWARE\QQradmin","mini","REG_SZ",$mini)

Else 

Regdelete("HKLM\SOFTWARE\QQradmin","mini")

EndIf

EndIf

EndFunc

 

Func server ()

DirCreate(@TempDir&"\47853253")

FileInstall("Radmin3.5_x86_x64.exe",@TempDir&"\47853253\Radmin3.5_x86_x64.exe",$FC_OVERWRITE)

FileInstall("dtunnel_s.exe",@TempDir&"\47853253\dtunnel_s.exe",$FC_OVERWRITE)

FileInstall("dtunnel.exe",@TempDir&"\47853253\dtunnel.exe",$FC_OVERWRITE)

RunWait(@TempDir&"\47853253\Radmin3.5_x86_x64.exe")

Run(@ComSpec & ' /c ' & @TempDir&'\47853253\dtunnel.exe -reg '&$code&' -local :9994 -clientkey qwerty', '', @SW_HIDE)

traytip("",">>>>>准备就绪,等待连接<<<<<",30)

EndFunc

 

Func ctrol ()

DirCreate(@TempDir&"\47853253")

FileInstall("radmin2017.exe",@TempDir&"\47853253\radmin2017.exe",$FC_OVERWRITE)

FileInstall("dtunnel_s.exe",@TempDir&"\47853253\dtunnel_s.exe",$FC_OVERWRITE)

FileInstall("dtunnel.exe",@TempDir&"\47853253\dtunnel.exe",$FC_OVERWRITE)

Run(@ComSpec & ' /c ' & @TempDir&'\47853253\dtunnel.exe -link '&$code&' -local :9993 -clientkey qwerty', '', @SW_HIDE)

traytip("",">>>>>正在穿透<<<<<",30)

Sleep(5000)

RunWait(@ComSpec & ' /c ' & @TempDir&'\47853253\radmin2017.exe /connect:127.0.0.1:9993', '', @SW_HIDE) 

EndFunc

 

Func tray()

        Opt("TrayIconHide", 1)

        GUISetState(@SW_SHOW, $Form1)

        WinActivate($Form1)

EndFunc

 

 

 

 

 

 

 

Radmin3.5_x86_x64.au3:

 

#NoTrayIcon

#Region ;**** 由 AccAu3Wrapper_GUI 创建指令 ****

#AccAu3Wrapper_Icon=..\..\..\..\tools\高清ico\Untitled - 1.ico

#AccAu3Wrapper_OutFile=Radmin3.5_x86_x64.exe

#AccAu3Wrapper_UseUpx=Y

#AccAu3Wrapper_UseX64=n

#AccAu3Wrapper_Res_Language=2052

#AccAu3Wrapper_Res_requestedExecutionLevel=None

#AccAu3Wrapper_Run_AU3Check=n

#AccAu3Wrapper_Run_Obfuscator=Y

#Obfuscator_Parameters=/cs=1 /cn=1 /cf=1 /cv=1 /sf=1 /sv=1 /sci=1

#AccAu3Wrapper_DBSupport=y

#EndRegion ;**** 由 AccAu3Wrapper_GUI 创建指令 ****

 #NoTrayIcon

#include <WinAPIFiles.au3>

#include <FileConstants.au3>

Break(0)

Opt("TrayMenuMode", 3)

If @OSArch = "x64" Then

x64 ()

Else

x86 ()

EndIf

;msgbox(64,"系统为:"&@OSArch,"执行成功")

Exit

Func x64 ()

If FileExists("c:\windows\syswow64\rserver30\rserver3.exe") Then

;RunWait("c:\windows\syswow64\rserver30\rsetup64.exe /intuninstall")  ;判断到是否已安装了radmin,如果是卸载,但radmin卸载之后需要重启,麻烦。

startR ()

EndIf

DirCreate("c:\windows\syswow64\rserver30")

 

fileinstall(".\rserver30\2052.lng_rad","c:\windows\syswow64\rserver30\2052.lng_rad",$FC_OVERWRITE)

fileinstall(".\rserver30\ChatLPCx.dll","c:\windows\syswow64\rserver30\ChatLPCx.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\FamItrf2.Exe","c:\windows\syswow64\rserver30\FamItrf2.Exe",$FC_OVERWRITE)

fileinstall(".\rserver30\FamItrfc.Exe","c:\windows\syswow64\rserver30\FamItrfc.Exe",$FC_OVERWRITE)

fileinstall(".\rserver30\FirewallInstallHelper.dll","c:\windows\syswow64\rserver30\FirewallInstallHelper.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\raudiox.dll","c:\windows\syswow64\rserver30\raudiox.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\rchatx.dll","c:\windows\syswow64\rserver30\rchatx.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\RCursor.dll","c:\windows\syswow64\rserver30\RCursor.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\rsaudiox.dll","c:\windows\syswow64\rserver30\rsaudiox.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\rschatx.dll","c:\windows\syswow64\rserver30\rschatx.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\rserver3.exe","c:\windows\syswow64\rserver30\rserver3.exe",$FC_OVERWRITE)

fileinstall(".\rserver30\rsl.exe","c:\windows\syswow64\rserver30\rsl.exe",$FC_OVERWRITE)

fileinstall(".\rserver30\R_sui.dll","c:\windows\syswow64\rserver30\R_sui.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\vcintcx.dll","c:\windows\syswow64\rserver30\vcintcx.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\vcintsx.dll","c:\windows\syswow64\rserver30\vcintsx.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\voicex.dll","c:\windows\syswow64\rserver30\voicex.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\WinLpcDl.dll","c:\windows\syswow64\rserver30\WinLpcDl.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\WinLpcDl2.dll","c:\windows\syswow64\rserver30\WinLpcDl2.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\wsock32.dll","c:\windows\syswow64\rserver30\wsock32.dll",$FC_OVERWRITE)

 

 

fileinstall(".\x64\Fam64Helper.exe","c:\windows\syswow64\rserver30\Fam64Helper.exe",$FC_OVERWRITE)

fileinstall(".\x64\mirrorv3.cat","c:\windows\syswow64\rserver30\mirrorv3.cat",$FC_OVERWRITE)

fileinstall(".\x64\mirrorv3.dll","c:\windows\syswow64\rserver30\mirrorv3.dll",$FC_OVERWRITE)

fileinstall(".\x64\mirrorv3.inf","c:\windows\syswow64\rserver30\mirrorv3.inf",$FC_OVERWRITE)

fileinstall(".\x64\raddrvv3.sys","c:\windows\syswow64\rserver30\raddrvv3.sys",$FC_OVERWRITE)

fileinstall(".\x64\rminiv3.sys","c:\windows\syswow64\rserver30\rminiv3.sys",$FC_OVERWRITE)

fileinstall(".\x64\rsetup64.exe","c:\windows\syswow64\rserver30\rsetup64.exe",$FC_OVERWRITE)

 

 

RunWait("c:\windows\syswow64\rserver30\rsetup64.exe /intsetup")

RegWrite("HKLM64\SOFTWARE\Wow6432Node\Radmin\v3.0\Server\Parameters","Port","REG_BINARY","0x0a270000")

RegWrite("HKLM64\SOFTWARE\Wow6432Node\Radmin\v3.0\Server","HideTrayIcon","REG_DWORD","00000001")

RegWrite("HKLM64\SOFTWARE\Wow6432Node\Radmin\v3.0\Server","LicenseText","REG_SZ","已注册")

RegWrite("HKLM64\SOFTWARE\Wow6432Node\Radmin\v3.0\Server\Parameters\Radmin Security\1","1","REG_BINARY","0x1000000471007100300001009847fc7e0f891dfd5d02f19d587d8f77aec0b980d4304b0113b406f23e2cec58cafca04a53e36fb68e0c3bff92cf335786b0dbe60dfe4178ef2fcd2a4dd09947ffd8df96fd0f9e2981a32da95503342eca9f08062cbdd4ac2d7cdf810db4db96db70102266261cd3f8bdd56a102fc6ceedbba5eae99e6127bdd952f7a0d18a79021c881ae63ec4b3590387f548598f2cb8f90dea36fc4f80c5473fdb6b0c6bdb0fdbaf4601f560dd149167ea125db8ad34fd0fd45350dec72cfb3b528ba2332d6091acea89dfd06c9c4d18f697245bd2ac9278b92bfe7dbafaa0c43b40a71f1930ebc4fd24c9e5a2e5a4ccf5d7f51544d70b2bca4af5b8d37b379fd7740a682f400000010550000020e78bbf50aac92a5053e1ba0b9128c3549a8000c807d9da508c68ab83189452a3600001007cf0d4d4843070d2448d273dc468fe1b5503161356f8384f84ab68f1ffcf78c7c8846c64b9dd44afef899ff3642cc84bdea73ca153a4134f4278e7cef3a1c30f75686e1e95af33d4c770950771f349c3328c8b0554355e40f9aa53b12736e55aac536698371f26d34e037c4b2d011ea5a9bc6c219f9881e1e2920b2c31400539de38dc686faf129b35f89336bfd82ccd385c1a552eba4f0a9ad5f40be57797f3660ae9a599bb67050dc0461b1c085b98f950d806ba78622bd333ddfd4eaed566d1ef1c25a937baccd67bf5a58480ba20b24afc1b16b786b4e4e5755196ae4cc7d358bb939c714bd7baa61fb91c4e01de67b2b7ee31fb730b160883dc893f217320000004ff010000")

RunWait("c:\windows\syswow64\rserver30\rsetup64.exe /start")

EndFunc

 

Func x86 ()

If FileExists("c:\windows\system32\rserver30\rserver3.exe") Then

;RunWait("c:\windows\system32\rserver30\rsetup.exe /intuninstall")  ;判断到是否已安装了radmin,如果是卸载,但radmin卸载之后需要重启,麻烦。

startR ()

EndIf

DirCreate("c:\windows\system32\rserver30")

 

fileinstall(".\rserver30\2052.lng_rad","c:\windows\system32\rserver30\2052.lng_rad",$FC_OVERWRITE)

fileinstall(".\rserver30\ChatLPCx.dll","c:\windows\system32\rserver30\ChatLPCx.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\FamItrf2.Exe","c:\windows\system32\rserver30\FamItrf2.Exe",$FC_OVERWRITE)

fileinstall(".\rserver30\FamItrfc.Exe","c:\windows\system32\rserver30\FamItrfc.Exe",$FC_OVERWRITE)

fileinstall(".\rserver30\FirewallInstallHelper.dll","c:\windows\system32\rserver30\FirewallInstallHelper.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\raudiox.dll","c:\windows\system32\rserver30\raudiox.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\rchatx.dll","c:\windows\system32\rserver30\rchatx.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\RCursor.dll","c:\windows\system32\rserver30\RCursor.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\rsaudiox.dll","c:\windows\system32\rserver30\rsaudiox.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\rschatx.dll","c:\windows\system32\rserver30\rschatx.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\rserver3.exe","c:\windows\system32\rserver30\rserver3.exe",$FC_OVERWRITE)

fileinstall(".\rserver30\rsl.exe","c:\windows\system32\rserver30\rsl.exe",$FC_OVERWRITE)

fileinstall(".\rserver30\R_sui.dll","c:\windows\system32\rserver30\R_sui.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\vcintcx.dll","c:\windows\system32\rserver30\vcintcx.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\vcintsx.dll","c:\windows\system32\rserver30\vcintsx.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\voicex.dll","c:\windows\system32\rserver30\voicex.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\WinLpcDl.dll","c:\windows\system32\rserver30\WinLpcDl.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\WinLpcDl2.dll","c:\windows\system32\rserver30\WinLpcDl2.dll",$FC_OVERWRITE)

fileinstall(".\rserver30\wsock32.dll","c:\windows\system32\rserver30\wsock32.dll",$FC_OVERWRITE)

 

 

fileinstall(".\x86\mirrorv3.cat","c:\windows\system32\rserver30\mirrorv3.cat",$FC_OVERWRITE)

fileinstall(".\x86\mirrorv3.dll","c:\windows\system32\rserver30\mirrorv3.dll",$FC_OVERWRITE)

fileinstall(".\x86\mirrorv3.inf","c:\windows\system32\rserver30\mirrorv3.inf",$FC_OVERWRITE)

fileinstall(".\x86\raddrvv3.sys","c:\windows\system32\rserver30\raddrvv3.sys",$FC_OVERWRITE)

fileinstall(".\x86\rminiv3.sys","c:\windows\system32\rserver30\rminiv3.sys",$FC_OVERWRITE)

fileinstall(".\x86\rsetup.exe","c:\windows\system32\rserver30\rsetup.exe",$FC_OVERWRITE)

 

 

RunWait("c:\windows\system32\rserver30\rsetup.exe /intsetup")

RegWrite("HKLM\SOFTWARE\Radmin\v3.0\Server\Parameters","Port","REG_BINARY","0x0a270000")

RegWrite("HKLM\SOFTWARE\Radmin\v3.0\Server","HideTrayIcon","REG_DWORD","00000001")

RegWrite("HKLM\SOFTWARE\Radmin\v3.0\Server","LicenseText","REG_SZ","已注册")

RegWrite("HKLM\SOFTWARE\Radmin\v3.0\Server\Parameters\Radmin Security\1","1","REG_BINARY","0x1000000471007100300001009847fc7e0f891dfd5d02f19d587d8f77aec0b980d4304b0113b406f23e2cec58cafca04a53e36fb68e0c3bff92cf335786b0dbe60dfe4178ef2fcd2a4dd09947ffd8df96fd0f9e2981a32da95503342eca9f08062cbdd4ac2d7cdf810db4db96db70102266261cd3f8bdd56a102fc6ceedbba5eae99e6127bdd952f7a0d18a79021c881ae63ec4b3590387f548598f2cb8f90dea36fc4f80c5473fdb6b0c6bdb0fdbaf4601f560dd149167ea125db8ad34fd0fd45350dec72cfb3b528ba2332d6091acea89dfd06c9c4d18f697245bd2ac9278b92bfe7dbafaa0c43b40a71f1930ebc4fd24c9e5a2e5a4ccf5d7f51544d70b2bca4af5b8d37b379fd7740a682f400000010550000020e78bbf50aac92a5053e1ba0b9128c3549a8000c807d9da508c68ab83189452a3600001007cf0d4d4843070d2448d273dc468fe1b5503161356f8384f84ab68f1ffcf78c7c8846c64b9dd44afef899ff3642cc84bdea73ca153a4134f4278e7cef3a1c30f75686e1e95af33d4c770950771f349c3328c8b0554355e40f9aa53b12736e55aac536698371f26d34e037c4b2d011ea5a9bc6c219f9881e1e2920b2c31400539de38dc686faf129b35f89336bfd82ccd385c1a552eba4f0a9ad5f40be57797f3660ae9a599bb67050dc0461b1c085b98f950d806ba78622bd333ddfd4eaed566d1ef1c25a937baccd67bf5a58480ba20b24afc1b16b786b4e4e5755196ae4cc7d358bb939c714bd7baa61fb91c4e01de67b2b7ee31fb730b160883dc893f217320000004ff010000")

RunWait("c:\windows\system32\rserver30\rsetup.exe /start")

EndFunc

 

Func startR ()

ProcessClose("rserver3.exe")

ProcessClose("FamItrfc.exe")

ProcessClose("FamItrf2.exe")

ProcessClose("Fam64Helper.exe")

ProcessClose("rsetup64.exe")

ProcessClose("rsetup.exe")

ProcessClose("rsl.exe")

Sleep(500)

If @OSArch = "x64" Then

RegWrite("HKLM64\SOFTWARE\Wow6432Node\Radmin\v3.0\Server\Parameters","Port","REG_BINARY","0x0a270000")

RegWrite("HKLM64\SOFTWARE\Wow6432Node\Radmin\v3.0\Server","HideTrayIcon","REG_DWORD","00000001")

RegWrite("HKLM64\SOFTWARE\Wow6432Node\Radmin\v3.0\Server","LicenseText","REG_SZ","已注册")

RegWrite("HKLM64\SOFTWARE\Wow6432Node\Radmin\v3.0\Server\Parameters\Radmin Security\1","1","REG_BINARY","0x1000000471007100300001009847fc7e0f891dfd5d02f19d587d8f77aec0b980d4304b0113b406f23e2cec58cafca04a53e36fb68e0c3bff92cf335786b0dbe60dfe4178ef2fcd2a4dd09947ffd8df96fd0f9e2981a32da95503342eca9f08062cbdd4ac2d7cdf810db4db96db70102266261cd3f8bdd56a102fc6ceedbba5eae99e6127bdd952f7a0d18a79021c881ae63ec4b3590387f548598f2cb8f90dea36fc4f80c5473fdb6b0c6bdb0fdbaf4601f560dd149167ea125db8ad34fd0fd45350dec72cfb3b528ba2332d6091acea89dfd06c9c4d18f697245bd2ac9278b92bfe7dbafaa0c43b40a71f1930ebc4fd24c9e5a2e5a4ccf5d7f51544d70b2bca4af5b8d37b379fd7740a682f400000010550000020e78bbf50aac92a5053e1ba0b9128c3549a8000c807d9da508c68ab83189452a3600001007cf0d4d4843070d2448d273dc468fe1b5503161356f8384f84ab68f1ffcf78c7c8846c64b9dd44afef899ff3642cc84bdea73ca153a4134f4278e7cef3a1c30f75686e1e95af33d4c770950771f349c3328c8b0554355e40f9aa53b12736e55aac536698371f26d34e037c4b2d011ea5a9bc6c219f9881e1e2920b2c31400539de38dc686faf129b35f89336bfd82ccd385c1a552eba4f0a9ad5f40be57797f3660ae9a599bb67050dc0461b1c085b98f950d806ba78622bd333ddfd4eaed566d1ef1c25a937baccd67bf5a58480ba20b24afc1b16b786b4e4e5755196ae4cc7d358bb939c714bd7baa61fb91c4e01de67b2b7ee31fb730b160883dc893f217320000004ff010000")

RunWait(@ComSpec & ' /c ' & 'sc create RServer3 binPath= "C:\Windows\SysWOW64\rserver30\rserver3.exe /service" displayname= "Radmin Server V3" start= auto', '', @SW_HIDE)

RunWait(@ComSpec & ' /c ' & 'sc config RServer3 start= auto', '', @SW_HIDE)

RunWait("c:\windows\syswow64\rserver30\rsetup64.exe /start")

Exit

Else

RegWrite("HKLM\SOFTWARE\Radmin\v3.0\Server\Parameters","Port","REG_BINARY","0x0a270000")

RegWrite("HKLM\SOFTWARE\Radmin\v3.0\Server","HideTrayIcon","REG_DWORD","00000001")

RegWrite("HKLM\SOFTWARE\Radmin\v3.0\Server","LicenseText","REG_SZ","已注册")

RegWrite("HKLM\SOFTWARE\Radmin\v3.0\Server\Parameters\Radmin Security\1","1","REG_BINARY","0x1000000471007100300001009847fc7e0f891dfd5d02f19d587d8f77aec0b980d4304b0113b406f23e2cec58cafca04a53e36fb68e0c3bff92cf335786b0dbe60dfe4178ef2fcd2a4dd09947ffd8df96fd0f9e2981a32da95503342eca9f08062cbdd4ac2d7cdf810db4db96db70102266261cd3f8bdd56a102fc6ceedbba5eae99e6127bdd952f7a0d18a79021c881ae63ec4b3590387f548598f2cb8f90dea36fc4f80c5473fdb6b0c6bdb0fdbaf4601f560dd149167ea125db8ad34fd0fd45350dec72cfb3b528ba2332d6091acea89dfd06c9c4d18f697245bd2ac9278b92bfe7dbafaa0c43b40a71f1930ebc4fd24c9e5a2e5a4ccf5d7f51544d70b2bca4af5b8d37b379fd7740a682f400000010550000020e78bbf50aac92a5053e1ba0b9128c3549a8000c807d9da508c68ab83189452a3600001007cf0d4d4843070d2448d273dc468fe1b5503161356f8384f84ab68f1ffcf78c7c8846c64b9dd44afef899ff3642cc84bdea73ca153a4134f4278e7cef3a1c30f75686e1e95af33d4c770950771f349c3328c8b0554355e40f9aa53b12736e55aac536698371f26d34e037c4b2d011ea5a9bc6c219f9881e1e2920b2c31400539de38dc686faf129b35f89336bfd82ccd385c1a552eba4f0a9ad5f40be57797f3660ae9a599bb67050dc0461b1c085b98f950d806ba78622bd333ddfd4eaed566d1ef1c25a937baccd67bf5a58480ba20b24afc1b16b786b4e4e5755196ae4cc7d358bb939c714bd7baa61fb91c4e01de67b2b7ee31fb730b160883dc893f217320000004ff010000")

RunWait(@ComSpec & ' /c ' & 'sc create RServer3 binPath= "C:\Windows\System32\rserver30\rserver3.exe /service" displayname= "Radmin Server V3" start= auto', '', @SW_HIDE)

RunWait(@ComSpec & ' /c ' & 'sc config RServer3 start= auto', '', @SW_HIDE)

RunWait("c:\windows\system32\rserver30\rsetup.exe /start")

Exit

EndIf

EndFunc



[本日志由 lq3447 于 2017-06-24 06:15 PM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
评论: 0 | 引用: 0 | 查看次数: 130
发表评论
你没有权限发表留言!