AutoIt Q&A 對於教學文有問題的直接在這發問

rictirse

測試OK沒問題

順便幫你壓成EXE了
http://www.fileswap.com/dl/z8HLVsSCXf/

[code=autoit]#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.8.1
Author:        Dang Wang

Script Function: Snort 2.9.4
        Template AutoIt script.

#ce ----------------------------------------------------------------------------
#Region
#AutoIt3Wrapper_icon=C:\NewDang.ico
#AutoIt3Wrapper_Compression=5
#AutoIt3Wrapper_Res_Comment=Snort
#AutoIt3Wrapper_Res_Description=Snort
#AutoIt3Wrapper_Res_Fileversion=2.9.4
#AutoIt3Wrapper_Res_LegalCopyright=噹噹
#EndRegion

#NoTrayIcon
#RequireAdmin
#include <Misc.au3>
AutoItSetOption ( "WinTitleMatchMode", 4)

Dim Const $FileName=  "Snort_2_9_4_Installer.exe"
Dim Const $FormName1 = "Snort 2.9.4 Setup "
Dim Const $FormName2 = "Snort 2.9.4 Setup"

_Singleton ($FormName2)

;－－－－－－－ （1 Click；2 Check；3 UnCheck；4 SetText ）－－－－－－－
Dim $Text[5][5] = [ [ $FormName1, "Please review the license terms before installing Snort 2.9.4.", "Button2", 1, ""], _
              [ $FormName1, "Choose which features of Snort 2.9.4 you want to install.", "Button2", 1, ""], _
              [ $FormName1, "Choose the folder in which to install Snort 2.9.4.", "Button2", 1, ""], _
              [ $FormName1, "Show &details", "Button2", 1, ""], _
              [ $FormName2, "Snort has successfully been installed.", "Button1", 1, ""] ]

$begin = TimerInit()

FileInstall  ( "Snort_2_9_4_Installer.exe", @TempDir&"\"&$FileName)
ShellExecute (@TempDir&"\"&$FileName)
While 1
  For $i = 0 To UBound ( $Text, 1)-1
    Select
      Case WinExists ( $Text[$i][0], $Text[$i][1])
        If $Text[$i][3] = 1 Then
          ControlClick ( $Text[$i][0], $Text[$i][1], $Text[$i][2])
        ElseIf $Text[$i][3] = 2 Then
          ControlCommand ( $Text[$i][0], $Text[$i][1], $Text[$i][2], "Check", "")
        ElseIf $Text[$i][3] = 3 Then
          ControlCommand ( $Text[$i][0], $Text[$i][1], $Text[$i][2], "UnCheck", "")
        ElseIf $Text[$i][3] = 4 Then
          ControlSetText ( $Text[$i][0], $Text[$i][1], $Text[$i][2], $Text[$i][4])
        EndIf
        If $i = (UBound ( $Text, 1)-1) Then ExitLoop(2)
    EndSelect
  Next
WEnd

$dif = TimerDiff  ($begin)
MsgBox ( 0, "安裝完成", StringFormat ( "總安裝時間：%s秒", $dif/1000))[/code]

liuchinlang

rictirse 發表於 2013-2-8 23:19
測試OK沒問題

順便幫你壓成EXE了

有請版主能註解內容一下嗎！
想了解了解，謝謝！

bunnie

想請問一下各位高手，請問網頁上要怎麼Handle 到 Restricted Access 的 Form，

希望能幫我解答一下，或是給我一點思路或提示。


以下是截圖喔


  
謝謝喔

:-)


補充內容 (2013-2-10 14:22):
To:gary8349
當時我有照著流程做，不知為何板上都無法顯示出圖片，所以只好放超鏈結 :-(

rictirse

bunnie 發表於 2013-2-10 11:23
想請問一下各位高手，請問網頁上要怎麼Handle 到 Restricted Access 的 Form，

希望能幫我解答一下，或是 ...

要看到網站才有辦法幫你想辦法=.=

不知道 他那是什麼類型的視窗

圖片已經幫你編輯上去了

bunnie

rictirse 發表於 2013-2-10 14:39
要看到網站才有辦法幫你想辦法=.=

不知道 他那是什麼類型的視窗

To: 噹噹
不好意思,我沒交代清楚,
我自己有架設一個WebProxy,
主機是美國"三蛋",
我不太想讓陌生人隨便使用,
我有設.htaccess,打上網址後就會跳出這個框框,
必須要有帳密才能登入,之後我希望寫一支程式Post或是Send帳密後登入,
目地大概是這樣子.
--------------------------------------------------------



謝謝 :-)

liuchinlang

請教老師:
[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\command]
@=hex(2):65,00,78,00,70,00,6c,00,6f,00,72,00,65,00,72,00,20,00,73,00,68,00,65,\
  00,6c,00,6c,00,3a,00,3a,00,3a,00,7b,00,45,00,44,00,37,00,42,00,41,00,34,00,\
  37,00,30,00,2d,00,38,00,45,00,35,00,34,00,2d,00,34,00,36,00,35,00,45,00,2d,\
  00,38,00,32,00,35,00,43,00,2d,00,39,00,39,00,37,00,31,00,32,00,30,00,34,00,\
  33,00,45,00,30,00,31,00,43,00,7d,00,00,00

我要轉換成AU3要如何用寫

RegWrite("HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\command","","REG_SZ","hex(2):
                                        65,00,78,00,70,00,6c,00,6f,00,72,00,65,00,72,00,20,00,73,00,68,00,65,"&"
  00,6c,00,6c,00,3a,00,3a,00,3a,00,7b,00,45,00,44,00,37,00,42,00,41,00,34,00,"&"
  37,00,30,00,2d,00,38,00,45,00,35,00,34,00,2d,00,34,00,36,00,35,00,45,00,2d,"&"
  00,38,00,32,00,35,00,43,00,2d,00,39,00,39,00,37,00,31,00,32,00,30,00,34,00,"&"
  33,00,45,00,30,00,31,00,43,00,7d,00,00,00")
錯誤

bunnie

liuchinlang 發表於 2013-2-10 18:53
請教老師:
[HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\command]
@=hex(2):65 ...

To:   liuchinlang
---------------------------------
[code=autoit]RegWrite("HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\command", "", "REG_SZ", "hex(2):" &@CRLF _
                  & "65,00,78,00,70,00,6c,00,6f,00,72,00,65,00,72,00,20,00,73,00,68,00,65," &@CRLF _
                & "00,6c,00,6c,00,3a,00,3a,00,3a,00,7b,00,45,00,44,00,37,00,42,00,41,00,34,00," &@CRLF _
                & "37,00,30,00,2d,00,38,00,45,00,35,00,34,00,2d,00,34,00,36,00,35,00,45,00,2d," &@CRLF _
                & "00,38,00,32,00,35,00,43,00,2d,00,39,00,39,00,37,00,31,00,32,00,30,00,34,00," &@CRLF _
                & "33,00,45,00,30,00,31,00,43,00,7d,00,00,00")[/code]
---------------------------------
你試試看吧 ：-）

esofthard

bunnie 發表於 2013-2-10 16:35
To: 噹噹
不好意思,我沒交代清楚,
我自己有架設一個WebProxy,

我不是要解決你的問題啦
但個人不見使用000webhost假設任何網站
（有些內幕....不願透漏）
而且一般免費主機都是不同意的喔
要小心被砍

bunnie

esofthard 發表於 2013-2-10 19:45
我不是要解決你的問題啦
但個人不見使用000webhost假設任何網站
（有些內幕....不願透漏）

是喔...（有些內幕....不願透漏）


不過這個網站是我個人要用的.
所以應該還好,
如果被關了,
我就再開.


To : esofthard
OK,我會注意的

liuchinlang

bunnie 發表於 2013-2-10 19:39
To:   liuchinlang
---------------------------------

可以通過，但無法實現目的！
謝啦！