无忧启动论坛

标题: UD&FBA安装工具GUI版开源大礼免费分享,感谢原创无私奉献[类似一键工作室] [打印本页]

作者: 2011cf    时间: 2011-5-14 12:02
标题: UD&FBA安装工具GUI版开源大礼免费分享,感谢原创无私奉献[类似一键工作室]



UD&FBA安装工具GUI版开源大礼免费分享,感谢原创无私奉献[类似一键工作室]
界面如图:
以下是源代码,不会用高亮显示,请版主帮我改下高亮显示,谢谢!
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_Icon=C:\Users\Administrator\Desktop\20080717215414607.ico
#AutoIt3Wrapper_OutFile=New_USB_System 2011_V4.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUPX=n
#AutoIt3Wrapper_Res_Comment=Power By Repaik.com
#AutoIt3Wrapper_Res_Description=New USB System 2011 V4
#AutoIt3Wrapper_Res_FileVersion=2.9.426.2011
[email=#AutoIt3Wrapper_Res_LegalCopyright=@copyright]#AutoIt3Wrapper_Res_LegalCopyright=@copyright[/email] 2010
#AutoIt3Wrapper_Res_Field=CompanyName|Power By Repaik.com
#AutoIt3Wrapper_Res_Field=程序设计|Roustar31
#AutoIt3Wrapper_Res_Field=首发论坛|http://www.repaik.com
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIListView.au3>
#include <ListViewConstants.au3>
#include <Array.au3>
#include <File.au3>
#include <ProgressConstants.au3>
#include <GuiImageList.au3>
#include <Process.au3>
Opt("TrayIconHide", 1)
Dim $Dll
Global $DwptW = @SystemDir & '\DsptW.eXe'
Global $ShowDrive = @SystemDir & '\ShowDrive.eXe'
Global $Part = @SystemDir & '\Part.Txt'
Global $GhostIni = @SystemDir & '\Ghost.InI'
If FileExists($GhostIni) Then FileDelete($GhostIni)
FileInstall('ShowDrive.Vxd', $ShowDrive, 1)
RunWait($ShowDrive & ' /S', '', @SW_HIDE)
FileDelete($ShowDrive)
FileInstall('DsptW.Vxd', $DwptW, 1)
If FileExists($Part) Then FileDelete($Part)
RunWait(@ComSpec & ' /C ' & $DwptW & ' 0 /L >' & $Part, '', @SW_HIDE)
$SerailNumber = StringMid(FileReadLine($Part, 3), 59)
FileDelete($Part)
For $i = 1 To 26
RunWait(@ComSpec & ' /C ' & $DwptW & ' ' & $i & ' /Find:All /GhostStyle >>' & $Part, '', @SW_HIDE)
If StringInStr(FileRead($Part), 'Error') Then ExitLoop
Next
FileDelete($DwptW)
Dim $v
_FileReadToArray($Part, $v)
FileWrite($GhostIni, '[HardDisk]' & @CRLF)
For $i = 1 To $v[0]
$ReadLine = FileReadLine($Part, $i)
If StringInStr($ReadLine, 'Error') Then ExitLoop
If Not StringInStr($ReadLine, 'No.') And StringInStr($ReadLine, ':') Then
  $GhostStr = StringMid($ReadLine, 6, 2) & '=' & StringMid($ReadLine, 1, 3)
  If StringMid($GhostStr, 1, 1) = 1 And StringMid($ReadLine, 6, 2) = '  ' Then
   FileWriteLine($GhostIni, StringReplace($GhostStr & 'C:', '  ', ''))
  Else
   FileWriteLine($GhostIni, $GhostStr)
  EndIf
  ExitLoop
EndIf
Next
For $i = 1 To $v[0]
$ReadLine = FileReadLine($Part, $i)
If StringInStr($ReadLine, 'Error') Then ExitLoop
If Not StringInStr($ReadLine, 'No.') And StringInStr($ReadLine, ':') Then
  $GhostStr = StringMid($ReadLine, 6, 2) & '=' & StringMid($ReadLine, 1, 3)
  If StringMid($ReadLine, 6, 2) <> '' And Not StringInStr($GhostStr, '1:1') Then FileWriteLine($GhostIni, $GhostStr)
EndIf
Next
FileDelete($Part)
_FileReadToArray($GhostIni, $v)
For $i = 2 To $v[0]
$ReadLine = StringLeft(FileReadLine($GhostIni, $i), 3)
If StringLeft($ReadLine, 1) = 1 Then
  ExitLoop
EndIf
Next
$Var = IniReadSection($GhostIni, 'HardDisk')
If @error Then
MsgBox(262144, '', '出错了啦! 当前目录找不到 Ghost.InI 文件.')
Else
For $i = 1 To $Var[0][0]
  $GetLastP = StringMid($Var[$i][0], 1, 1)
  If StringInStr($GetLastP, 'H') Then $GetLastP = StringMid($Var[$i + 1][0], 1, 1)
  If $GetLastP <> 1 Then
   ExitLoop
  EndIf
Next
EndIf
$i = 1
$Str = "CDEFGHIJKLMNOPQRSTUVWXYZ"
While $i <= 24
$Str1 = StringLeft($Str, $i)
$Dirve = StringRight($Str1, 1)
$Var = DriveGetType($Dirve & ":\")
If FileExists($Dirve & ":\") Then
  If $Var = "REMOVABLE" Then
   $Dirve1 = $Dirve & ":"
  EndIf
  If $Var <> "REMOVABLE" Then
   $Dirve1 = ""
  EndIf
EndIf
$i = $i + 1
WEnd
ini()
$usbhdd = IniRead($GhostIni, "USB", "name", "请插入U盘")
If $Dirve1 <> "" Then
$usbhdd1 = $Dirve1 & "名称:" & $usbhdd
EndIf
If $Dirve1 = "" Then
$usbhdd1 = "请插入U盘再运行本程序!"
MsgBox(64, "", "你没有插入U盘请插入U盘再运行本程序!" & @CRLF & "请先插入要制作的U盘,再运行本程序!")
Exit
EndIf
FileInstall("SkinCrafterDll.dll", @TempDir & "\SkinCrafterDll.dll", 1)
FileInstall("vista.skf", @TempDir & "\vista.skf", 1)
$Form1 = GUICreate("New USB System 2011 V4 Power By Repaik.com 2011.4.26", 601, 465, -1, -1)
_SkinGUI(@TempDir & "\SkinCrafterDll.dll", @TempDir & "\vista.skf", $Form1)
FileInstall("usb-PE.jpg", @TempDir & "\usb-PE.jpg", 1)
$Pic1 = GUICtrlCreatePic(@TempDir & "\usb-PE.jpg", 0, 0, 600, 120)
$Label1 = GUICtrlCreateLabel("选择制作的U盘", 24, 144, 90, 20)
$Combo1 = GUICtrlCreateCombo($usbhdd1, 125, 142, 240, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
$Labelzip = GUICtrlCreateLabel("选择U盘启动格式", 370, 144, 100, 20)
$Combo2 = GUICtrlCreateCombo("", 480, 142, 100, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData($Combo2, "USB-HDD|USB-ZIP", "USB-HDD")
$ListView1 = GUICtrlCreateListView("分区|序号|文件系统|已用容量(GB)|剩余容量(GB)|总容量(GB)", 24, 180, 556, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 70)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 100)
_GUICtrlListView_JustifyColumn(GUICtrlGetHandle($ListView1), 0, 2)
_GUICtrlListView_JustifyColumn(GUICtrlGetHandle($ListView1), 1, 2)
_GUICtrlListView_JustifyColumn(GUICtrlGetHandle($ListView1), 2, 2)
_GUICtrlListView_JustifyColumn(GUICtrlGetHandle($ListView1), 3, 2)
_GUICtrlListView_JustifyColumn(GUICtrlGetHandle($ListView1), 4, 2)
_GUICtrlListView_JustifyColumn(GUICtrlGetHandle($ListView1), 5, 2)
$z = 0
_GUICtrlListView_DeleteAllItems($ListView1)
$read = IniReadSection($GhostIni, "HardDisk")
If @error Then
MsgBox(64, "", "错误")
EndIf
If Not @error Then

For $i = 1 To $read[0][0]
  $fjxt = DriveGetFileSystem($read[$i][0])
  $zrl = Round(DriveSpaceTotal($read[$i][0]) / 1024, 2)
  $syrl = Round(DriveSpaceFree($read[$i][0]) / 1024, 2)
  $usrl = Round($zrl - $syrl, 2)
  GUICtrlCreateListViewItem($read[$i][0], $ListView1)
  _GUICtrlListView_AddSubItem($ListView1, $z, $read[$i][1], 1, $z + 1)
  _GUICtrlListView_AddSubItem($ListView1, $z, $fjxt, 2, $z + 1)
  _GUICtrlListView_AddSubItem($ListView1, $z, $syrl, 4, $z + 1)
  _GUICtrlListView_AddSubItem($ListView1, $z, $zrl, 5, $z + 1)
  _GUICtrlListView_AddSubItem($ListView1, $z, $usrl, 3, $z + 1)
  $z += 1
Next
EndIf
_GUICtrlListView_SetItemSelected($ListView1, $read[0][0] - 1)
GUICtrlCreateGroup("注意事项", 24, 290, 560, 70)
GUICtrlCreateLabel("本程序制作成的U盘启动盘具有三防特性:防毒﹑防删﹑防格。制作成功的启动区为彻底隐藏的UD分区", 32, 310, 540, 17)
GUICtrlCreateLabel("本程序制作时需要改写U盘的启动代码,若遇到安全软件阻止请选择不拦截,否则可能不能制作成功", 34, 332, 540, 17)
$Button1 = GUICtrlCreateButton("访问导航(&B)", 30, 420, 100, 35)
$Button2 = GUICtrlCreateButton("访问论坛(&G)", 140, 420, 100, 35)
$Button3 = GUICtrlCreateButton("开始制作(&S)", 250, 420, 100, 35)
$Button5 = GUICtrlCreateButton("还原U盘(&U)", 360, 420, 100, 35)
$ZT = GUICtrlCreateLabel("当前状态:等待用户确认设置开始制作...", 130, 395, 380, 20)
$pro = GUICtrlCreateProgress(24, 370, 560, 18, $PBS_SMOOTH)
If $Dirve1 = "" Then
GUICtrlSetState($Button3, $GUI_DISABLE)
EndIf
$Button4 = GUICtrlCreateButton("退出", 470, 420, 100, 35)
GUISetState(@SW_SHOW)
Func quit()
GUISetState(@SW_HIDE)
DllCall($Dll, "int:cdecl", "DeInitDecoration")
DllCall($Dll, "int:cdecl", "RemoveSkin")
DllClose($Dll)
FileDelete(@TempDir & "\SkinCrafterDll.dll")
FileDelete(@TempDir & "\vista.skf")
FileDelete($GhostIni)
FileDelete($DwptW)
FileDelete($ShowDrive)
FileDelete(@WindowsDir & "\fbinst.exe")
FileDelete(@WindowsDir & "\abc.fba")
FileDelete(@TempDir & "\usb-PE.jpg")
Exit
EndFunc   ;==>quit
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $Button1
   ShellExecute("http://www.1616.net/?un7099")
  Case $Button2
   ShellExecute("http://www.repaik.com")
  Case $Button4
   quit()
  Case $GUI_EVENT_CLOSE
   quit()
  Case $Button3
   GUICtrlSetState($Button3, $GUI_DISABLE)
   GUICtrlSetState($Button4, $GUI_DISABLE)
   GUICtrlSetState($Button5, $GUI_DISABLE)
   $ZIP = GUICtrlRead($Combo2)
   If $ZIP = "USB-HDD" Then
    $usb1 = ""
    $usbg = " --fat32"
   EndIf
   If $ZIP = "USB-ZIP" Then
    $usb1 = " --ZIP"
    $usbg = " --fat16"
   EndIf
   $ZZUSB = GUICtrlRead($Combo1)
   $ZZUSBHDD = StringLeft($ZZUSB, 2)
   $HDFB = IniRead($GhostIni, "HardDisk", $ZZUSBHDD, "2:1")
   $HDFB2 = StringLeft($HDFB, 1)
   $HDFB1 = $HDFB2 - 1
   GUICtrlSetData($pro, 10)
   $ask = MsgBox(64 + 4, "提示", "你选择了将" & $ZZUSB & "制作成可启动U盘" & @CRLF & "要确定开始制作,请点击“是”,否则点击“否”")
   If $ask = 6 Then
    $ask2 = MsgBox(64 + 4 + 16, "警告", "你选择了将" & $ZZUSB & "制作成可启动U盘" & @CRLF & "一旦开始制作,U盘将被格式化,确认制作请点击“是”,否则点击“否”")
    If $ask2 = 6 Then
     GUICtrlSetData($ZT, "当前状态:正在准备程序必须数据中,请稍候...")
     FileInstall("fbinst.exe", @WindowsDir & "\fbinst.exe", 1)
     ;RunWait(@ComSpec & " /c " & @WindowsDir&"\fbinst (hd"&$HDFB1&")"&"format --raw", @ScriptDir, @SW_HIDE)
     RunWait(@WindowsDir & "\fbinst (hd" & $HDFB1 & ")" & " format --raw --force", @WindowsDir, @SW_HIDE)
     GUICtrlSetData($pro, 20)
     ;RunWait(@ComSpec & " /c " & @WindowsDir&"\fbinst (hd"&$HDFB1&")"&"format --extended 125m  --force --fat32 --align --primary 8m",@ScriptDir, @SW_HIDE)
     RunWait(@WindowsDir & "\fbinst (hd" & $HDFB1 & ")" & " format --extended 100m  --force" & $usb1 & $usbg & " --align --primary 8m", @WindowsDir, @SW_HIDE)
     GUICtrlSetData($ZT, "当前状态:正在将引导程序写入U盘中,请稍候...")
     GUICtrlSetData($pro, 40)
     Sleep(1000)
     GUICtrlSetData($ZT, "当前状态:正在准备U盘PE数据和必备文件中,请稍候...")
     FileInstall("abc.fba", @WindowsDir & "\abc.fba", 1)
     GUICtrlSetData($pro, 60)
     GUICtrlSetData($ZT, "当前状态:正在将PE维护系统数据写入U盘中,请稍候...")
     ;RunWait(@ComSpec & " /c " & @WindowsDir&"\fbinst (hd"&$HDFB1&")"&"load "[email=&@WindowsDir&]&@WindowsDir&"\abc.fba",@ScriptDir[/email], @SW_HIDE)
     RunWait(@WindowsDir & "\fbinst (hd" & $HDFB1 & ")" & " load " & @WindowsDir & "\abc.fba", @WindowsDir, @SW_HIDE)
     GUICtrlSetData($pro, 90)
     FileDelete(@WindowsDir & "\fbinst.exe")
     FileDelete(@WindowsDir & "\abc.fba")
     Sleep(1000)
     GUICtrlSetData($pro, 100)
     GUICtrlSetData($ZT, "当前状态:所有任务全部完成!")
     MsgBox(64, "恭喜", "超级三防U盘启动盘制作成功" & @CRLF & "请安全移除U盘并重新接上,不要现在就去打开U盘可见区")
     quit()
    EndIf
    If $ask2 = 7 Then
     GUICtrlSetState($Button3, $GUI_ENABLE)
     GUICtrlSetState($Button4, $GUI_ENABLE)
     GUICtrlSetState($Button5, $GUI_ENABLE)
     GUICtrlSetData($pro, 0)
    EndIf
   EndIf
   If $ask = 7 Then
    GUICtrlSetState($Button3, $GUI_ENABLE)
    GUICtrlSetState($Button4, $GUI_ENABLE)
    GUICtrlSetState($Button5, $GUI_ENABLE)
    GUICtrlSetData($pro, 0)
   EndIf
  Case $Button5
   $ZZUSB = GUICtrlRead($Combo1)
   $ZZUSBHDD = StringLeft($ZZUSB, 2)
   $HDFB = IniRead($GhostIni, "HardDisk", $ZZUSBHDD, "2:1")
   $HDFB2 = StringLeft($HDFB, 1)
   $HDFB1 = $HDFB2 - 1
   GUICtrlSetState($Button3, $GUI_DISABLE)
   GUICtrlSetState($Button4, $GUI_DISABLE)
   GUICtrlSetState($Button5, $GUI_DISABLE)
   $ask1 = MsgBox(64 + 4 + 16, "提示", "你选择的了将" & $ZZUSB & "U盘重置到默认状态," & @CRLF & "要确定重置U盘,请点击“是”,否则点击“否”" & @CRLF & "请事先备份U盘可见区内的数据,还原后将格式可见区")
   If $ask1 = 6 Then
    GUICtrlSetData($ZT, "当前状态:正在重置U盘中,请稍候...")
    FileInstall("fbinst.exe", @WindowsDir & "\fbinst.exe", 1)
    RunWait(@WindowsDir & "\fbinst (hd" & $HDFB1 & ")" & " format --raw --force", @WindowsDir, @SW_HIDE)
    GUICtrlSetData($pro, 100)
    Sleep(1000)
    MsgBox(64, "提示", "你已经成功的将U盘重置为未制作前的状态!" & @CRLF & "请安全移除U盘并重新接上,不要现在就去打开U盘可见区")
    GUICtrlSetData($ZT, "当前状态:等待用户确认设置开始制作...")
    GUICtrlSetData($pro, 0)
    GUICtrlSetState($Button3, $GUI_ENABLE)
    GUICtrlSetState($Button4, $GUI_ENABLE)
    GUICtrlSetState($Button5, $GUI_ENABLE)
   EndIf
   If $ask1 = 7 Then
    GUICtrlSetState($Button3, $GUI_ENABLE)
    GUICtrlSetState($Button4, $GUI_ENABLE)
    GUICtrlSetState($Button5, $GUI_ENABLE)
    GUICtrlSetData($pro, 0)
   EndIf
EndSwitch
WEnd
Func ini()
$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_diskdrive")
For $objItem In $colItems
  IniWrite($GhostIni, $objItem.interfacetype, "Name", $objItem.caption)
  $num = StringSplit($objItem.PNPDeviceID, "\")
  $ii = UBound($num)
  $ii = $ii - 1
  $number = String($num[$ii])
  IniWrite($GhostIni, $objItem.interfacetype, "ID", $number)
Next
EndFunc   ;==>ini
Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle)
$Dll = DllOpen($SkincrafterDll)
DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "1", "wstr", "", "wstr", "1@1.com", "wstr", "1")
DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1)
DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin)
DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25)
DllCall($Dll, "int:cdecl", "ApplySkin")
EndFunc   ;==>_SkinGUI

源代码出处: http://www.repaik.com/?u=1533

[ 本帖最后由 2011cf 于 2011-5-14 12:03 编辑 ]
作者: 2011cf    时间: 2011-5-14 12:11
先顶,支持原创分享。
作者: 2010dgnanhua    时间: 2011-5-14 13:12
强帖支持!谢谢分享!
作者: 20100660    时间: 2011-5-14 13:14
标题: 楼主辛苦了,感谢分享!
楼主辛苦了,感谢分享!
作者: 2010fengyun    时间: 2011-5-14 14:01
请教一下搂主这个是用什么脚本语言制作的,似C非C,倒有点像LUA。和NSIS制作的比较有何区别?

还有你发的那个URL,我想找相关介绍,结果半天也不知道在你站点URL的哪个位置上!
作者: 2010fengyun    时间: 2011-5-14 14:02
原来就是NSIS。晕了,没看出来!
作者: 2011cf    时间: 2011-5-14 14:31
原帖由 2010fengyun 于 2011-5-14 14:01 发表 请教一下搂主这个是用什么脚本语言制作的,似C非C,倒有点像LUA。和NSIS制作的比较有何区别?还有你发的那个URL,我想找相关介绍,结果半天也不知道在你站点URL的哪个位置上!
是AU3写的,网址是那个论坛注册搜下…
作者: HB天意    时间: 2011-5-14 19:36
支持一下,最近在看au3的教程。
作者: 2011jifeiyun    时间: 2011-5-14 21:47
文件不够哇 能否补全
作者: 2011cf    时间: 2011-5-15 09:48
原帖由 2011jifeiyun 于 2011-5-14 21:47 发表 文件不够哇 能否补全
源代码是全的,图片,磁盘工具,FBA包,皮肤插件不要我提供了吧…
作者: 2011cf    时间: 2011-5-15 09:50
原帖由 yidawpf 于 2011-5-14 19:36 发表 支持一下,最近在看au3的教程。
老大的论坛做的不错,祝越做越好!
作者: ntsyh    时间: 2011-5-15 14:28
原帖由 yidawpf 于 2011-5-14 19:36 发表
支持一下,最近在看au3的教程。



天意你的最新作品下载地址
作者: ntsyh    时间: 2011-5-15 14:30
原帖由 yidawpf 于 2011-5-14 19:36 发表
支持一下,最近在看au3的教程。



天意大师你的最新安装器下载地址

[ 本帖最后由 ntsyh 于 2011-5-15 14:31 编辑 ]
作者: 2011fwy12    时间: 2011-6-18 08:09
支持原创,多谢开源~。
作者: 2011fwy12    时间: 2011-6-18 08:30
原帖由 2011cf 于 2011-5-15 09:48 发表
源代码是全的,图片,磁盘工具,FBA包,皮肤插件不要我提供了吧…



既然有,那就也一起发上来吧,大家可以一起学习一下一下啊,谢谢分享。
作者: 2011电脑维修    时间: 2011-6-18 16:41
源代码楼主发了,皮肤什么网上大把,总不能让楼主把编程软件也传上来吧?
作者: 2011gbfeng    时间: 2011-6-18 21:43
感谢分享 辛苦了 辛苦了
作者: 2011fwy12    时间: 2011-6-18 21:45
我编译的时候提示:
错误,不能读取autoit的根(stub)文件。

请问有人遇到这个问题么?
作者: 2011asks    时间: 2011-6-18 23:19
标题: 回复 #1 2011cf 的帖子
看不到下的地址顶你上去
作者: panman    时间: 2011-6-19 11:11
运行错误.....啊啊
作者: 2011电脑维修    时间: 2011-6-19 11:53
原帖由 panman 于 2011-6-19 11:11 发表 运行错误.....啊啊
需要皮肤,DLL等文件放一起编译
作者: panman    时间: 2011-6-19 16:00
错误是这样的,请看图

错误.jpg (33.38 KB, 下载次数: 188)

错误.jpg

作者: 2010msmki    时间: 2011-6-20 12:40
支技了,。。。。。。。。。。。。。。。。。
作者: liuyindou    时间: 2011-6-20 16:40
谢谢提供这么好的教程。有一地方求教。


这是本人学习试着生成 的。


[ 本帖最后由 liuyindou 于 2011-6-20 16:47 编辑 ]
作者: 2011电脑维修    时间: 2011-6-20 18:47
原帖由 liuyindou 于 2011-6-20 16:40 发表 谢谢提供这么好的教程。有一地方求教。124247这是本人学习试着生成 的。124248
$Form1 = GUICreate("New USB System 2011 V4 Power By Repaik.com2011.4.26", 601, 465, -1, -1)这几句,在调用DLL上面…引号中间就是了

[ 本帖最后由 2011电脑维修 于 2011-6-20 18:48 编辑 ]
作者: liuyindou    时间: 2011-6-20 18:56
标题: 回复 #25 2011电脑维修 的帖子
太感谢你了。试过了,成功。

作者: 2011电脑维修    时间: 2011-6-20 19:14
原帖由 liuyindou 于 2011-6-20 18:56 发表 太感谢你了。试过了,成功。124258
恭喜呀,不是我的东西不用感谢,

[ 本帖最后由 2011电脑维修 于 2011-6-22 02:57 编辑 ]
作者: liuyindou    时间: 2011-6-20 19:46
标题: 回复 #27 2011电脑维修 的帖子
仅仅是玩一下而已。自己用还是FbinstTool方便。
作者: panman    时间: 2011-6-21 18:20
编译人家的源码,偶尔试试蛮有意思
作者: zhczf    时间: 2011-6-22 13:11
来看一看,学习一下代码
作者: 2011fwy12    时间: 2011-6-22 21:58
原帖由 2011电脑维修 于 2011-6-19 11:53 发表
需要皮肤,DLL等文件放一起编译

请问这些皮肤和DLL的在什么地方可以下载啊,我的也是变异错误的呢,谢谢啊
作者: 2011电脑维修    时间: 2011-6-22 23:00
原帖由 2011fwy12 于 2011-6-22 21:58 发表 请问这些皮肤和DLL的在什么地方可以下载啊,我的也是变异错误的呢,谢谢啊
编程软件官方有下载
作者: 2011fwy12    时间: 2011-6-24 21:25
我用了au3,都提示22喽的错误啊。

能不能给个可以编译这个代码的au3程序啊。
作者: 2010roustar31    时间: 2011-6-30 22:12
惭愧了,这个工具做的很一般,代码是在ACN和自由天空发过,附件在ACN和我的论坛发过。&lt;br /&gt;&lt;br /&gt;我这个工具,也是自己瞎弄,通用性不是很强,大家自己DIY,如果AU3过关的话,可以尝试解决多个U盘识别的问题。我的这个始终不能支持多个U盘识别,只能接一个U盘,否则可能造成误格式化。&lt;br /&gt;&lt;br /&gt;附上代码和附件,编译的东西大家可以去ACN论坛下载,百度搜索AU3第一个论坛进去,到中文资料区,记得最先的3.7版是测试版,下载3.6第二汉化版。

论坛上个附件有点麻烦,大家点击下面的链接下载吧

附上我工具发布帖子的版权说明:

本软件的使用的fbinst,PE内核,PE和DOS下工具版权归原作者所有。

http://idtxs.googlecode.com/files/USB-PE.rar

[ 本帖最后由 2010roustar31 于 2011-6-30 22:18 编辑 ]
作者: 2010dgnanhua    时间: 2011-7-1 13:05
原帖由 2010roustar31 于 2011-6-30 22:12 发表
惭愧了,这个工具做的很一般,代码是在ACN和自由天空发过,附件在ACN和我的论坛发过。<br /><br />我这个工具,也是自己瞎弄,通用性不是很强,大家自己DIY,如果AU3过关的话,可以尝试解决多个U盘识别的问题。 ...


这个可以支持多磁盘的,是一个叫阿杰的朋友给的,不过我始终没能完成这类工具的源码,现在放上来方便大家。

磁盘.rar (25.88 KB, 下载次数: 205)
作者: zfyczyh    时间: 2011-10-26 02:26
标题: 回复 #34 2010roustar31 的帖子
老大,你给的链接打不开呀?
作者: shiyb    时间: 2011-10-26 15:01
非常好,开源大礼免费分享,谢谢!
作者: 2011cdfjkm    时间: 2011-11-3 09:48
??????皮肤找了好久都没找到 还有 那 个 DLL
作者: wjzj    时间: 2011-11-8 14:18
好工具,只是看不懂源代码啊,强。
作者: ndyzx    时间: 2011-11-10 21:11
标题: 回复 #1 2011cf 的帖子
貌似“出错了啦! 当前目录找不到 Ghost.InI 文件”及相关内容的语句作用不大啊。
作者: 讯极天度    时间: 2011-11-11 20:06
试了一下AU3的没有神雕的稳定 呵呵~可能是我自己的问题
作者: 2011huhan    时间: 2011-12-20 23:35
老大发附件啊 找不到啊 很麻烦啊
作者: 2011aasongci    时间: 2011-12-28 07:57
还不错,就是能不能不要显示硬盘分区呢
作者: 2010swiftyfox    时间: 2012-3-9 23:19
留名,有源码就不错额,皮肤插件可以下载到么。
作者: kuntty    时间: 2012-4-4 14:02
这个不错。学习一下、
作者: 201120122050    时间: 2012-4-5 20:25
楼主辛苦了,感谢分享!............
作者: 2012xiguan99    时间: 2012-5-24 22:34
这个真的不错
作者: 2012zym013579    时间: 2013-4-13 21:39
标题: RE: UD&FBA安装工具GUI版开源大礼免费分享,感谢原创无私奉献
2011cf 发表于 2011-5-15 09:48
源代码是全的,图片,磁盘工具,FBA包,皮肤插件不要我提供了吧…

您好,能给我发一份资源不?我找了好久,愣是没找到,一运行就出错。。。
邮箱:zym013579@163.com
希望您抽空给我发一份,谢谢
作者: 2012peter2    时间: 2013-4-14 09:59
不知道这个安装能不能成功,之前用论坛上别的源码制作都不成功。
作者: 2012withthewind    时间: 2013-4-23 14:49
2010roustar31 发表于 2011-6-30 22:12
惭愧了,这个工具做的很一般,代码是在ACN和自由天空发过,附件在ACN和我的论坛发过。&lt;br /&gt;&lt;br /&gt; ...

新手来晚了下不了USB-PE.rar闷
有好新人士提共我源码+附件? 谢谢
作者: boy6585948    时间: 2015-6-18 15:12
先收藏了吧!
作者: boy6585948    时间: 2015-6-26 23:03
必须支持LZ这种开源精神!@




欢迎光临 无忧启动论坛 (http://bbs.c3.wuyou.net/) Powered by Discuz! X3.3