ฟอรั่ม PSsix

Would you like to react to this message? Create an account in a few clicks or log in to continue.

ฟอรั่มของบล็อก http://pssix.blogspot.com


3 posters

    สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    avatar
    zeedzars
    PSsix Member
    PSsix Member


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 29
    ความนิยม : 1
    เข้าร่วมเมื่อ : 26/08/2011

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by zeedzars 26/08/11, 02:08 pm

    run("C:\Program Files\Radmin Viewer 3\Radmin.exe")

    Attachments
    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Attachmentask1.bmp
    ให้ทำการเลือก Radmin ที่ ip 10.4.0.220 ทันทีเลยอัตโนมัติ หลังจาก run โปรแกรม
    You don't have permission to download attachments.
    (187 Kb) Downloaded 10 times
    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Attachmentask2.bmp
    ให้ทำการใส่ รหัส user,password ทันทีเลย หลังจากมีการเลือก Radmin
    You don't have permission to download attachments.
    (151 Kb) Downloaded 8 times
    avatar
    zeedzars
    PSsix Member
    PSsix Member


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 29
    ความนิยม : 1
    เข้าร่วมเมื่อ : 26/08/2011

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by zeedzars 26/08/11, 11:55 pm

    มีท่านผู้ใดช่วยได้ ไหม Y Y
    POS
    POS
    PSsix
    PSsix


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 1152
    ความนิยม : 326
    เข้าร่วมเมื่อ : 19/07/2010

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by POS 27/08/11, 11:53 am

    จำลองการกดคีย์บอร์ดหรือเม้าส์ [You must be registered and logged in to see this link.]


    ***วิธีใส่รูปดูที่ปักหมุด
    avatar
    zeedzars
    PSsix Member
    PSsix Member


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 29
    ความนิยม : 1
    เข้าร่วมเมื่อ : 26/08/2011

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by zeedzars 27/08/11, 02:08 pm

    test
    avatar
    zeedzars
    PSsix Member
    PSsix Member


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 29
    ความนิยม : 1
    เข้าร่วมเมื่อ : 26/08/2011

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by zeedzars 27/08/11, 02:10 pm

    คุณ admin คัรบ ขอบคุณสำหรับแนวทางน่ะครับเด่วผมจะเอาไป ดัดแปลง แต่ ผมขอ โพสแนวทางที่จะทำเรยน่ะครับ

    #include
    #include
    #include
    ;Get the Windows Shell Object
    Global $IE01_3 = ObjCreate("Shell.Explorer.2"),$IE02_4 = ObjCreate("Shell.Explorer.2"),$resolution
    Dim $width = @DesktopWidth, $height = @DesktopHeight ,$freq = @DesktopRefresh
    ;msgbox(0,"text",$width)
    ;msgbox(0,"text",$height)
    ;msgbox(0,"text",$freq)

    ;MsgBox(0, "Desktop Resolution","Resolution is " & _Desktop_Resolution() & " @ " & @DesktopRefresh & " Hertz")
    ;MsgBox(0, "Desktop Resolution","Resolution is " & _Desktop_Resolution() & " @ " & @DesktopRefresh & " Hertz")
    ;Msgbox(0,"Display_Resolution", & $x " x " & $y & " " & $z & " Hertz")

    ;msgbox(0,"text",$WS_POPUP)
    ;msgbox(0,"text",$WS_SIZEBOX)
    ;bitor Cut Tool web

    ;Create a GUI window.
    ;GUICreate ( "title" [, width [, height [, left [, top [, style [, exStyle [, parent]]]]]]] )
    ;Parameters
    ;title The title of the dialog box.
    ;width [optional] The width of the window.
    ;height [optional] The height of the window.
    ;left [optional] The left side of the dialog box. By default (-1), the window is centered. If defined, top must also be defined.
    ;top [optional] The top of the dialog box. Default (-1) is centered
    ;style [optional] defines the style of the window. See GUI Control Styles Appendix.
    ;Use -1 for the default style which includes a combination of $WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU styles.
    ;Some styles are always included: $WS_CLIPSIBLINGS, and $WS_SYSMENU if $WS_MAXIMIZEBOX or $WS_SIZEBOX is specified.
    ;exStyle [optional] defines the extended style of the window. See the Extended Style Table below. -1 is the default.
    ;parent [optional] The handle of another previously created window - this new window then becomes a child of that window.


    $Form1 = GUICreate("DCS", $width, $height, 0, 0,BitOR($WS_POPUP, $WS_SIZEBOX))
    $Graphic1_3 = GUICtrlCreateObj($IE01_3,0, 0, $width/2, $height/2)
    GUISetState(@SW_SHOW)
    ;#sleep(2000)
    ;$Form2 = GUICreate("DCS2", $width/2, $height/2, $width/2, 0,BitOR($WS_POPUP, $WS_SIZEBOX))
    $Graphic1_4 = GUICtrlCreateObj($IE02_4,$width/2, $height/2, $width/2, $height/2)
    GUISetState(@SW_SHOW)

    ;$Form3 = GUICreate("DCS3", $width/2, $height/2, $width/2, $height-$height/2,BitOR($WS_POPUP, $WS_SIZEBOX))
    ;$Graphic1_5 = GUICtrlCreateObj($IE03_5,0, 0, $width/2, $height/2)
    ;GUISetState(@SW_SHOW)

    ;GUICtrlCreateObj ( ObjectVar, left, top [, width [, height ]] )
    ;ObjectVar A variable pointing to a previously opened object
    ;left The left side of the control. If -1 is used then left will be computed according to GUICoordMode.
    ;top The top of the control. If -1 is used then top will be computed according to GUICoordMode.
    ;width [optional] The width of the control (default is the previously used width).
    ;height [optional] The height of the control (default is the previously used height).
    ;#$Graphic1_3 = GUICtrlCreateObj($IE01_3,0, 0, $width/2, $height/2)
    ;#$Graphic1_4 = GUICtrlCreateObj($IE02_4,0, 0, $width/2, $height/2)

    ;Changes the state of a GUI window.
    ;GUISetState ( [flag [, winhandle]] )
    ;Parameters
    ;flag [optional] @SW_SHOW = Shows a previously hidden window (default)
    ;@SW_HIDE = Hide window
    ;@SW_MINIMIZE = Minimize window
    ;@SW_MAXIMIZE = Maximize window
    ;@SW_RESTORE = Undoes a window minimization
    ;@SW_DISABLE = Disables the window
    ;@SW_ENABLE = Enables the window
    ;@SW_LOCK = Lock the window to avoid repainting.
    ;@SW_UNLOCK = Unlock windows to allow painting.
    ;winhandle [optional] Windows handle as returned by GUICreate (default is the previously used window).
    #GUISetState(@SW_SHOW)

    ;object.Navigate2( _
    ;URL As Variant, _
    ;[Flags As Variant,] _
    ;[TargetFrameName As Variant,] _
    ;[PostData As Variant,] _
    ;[Headers As Variant])
    $IE01_3.navigate2("")
    $IE02_4.navigate2("")
    ;$IE03_5.navigate2("")

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd





    Func _Desktop_Resolution()
    Switch $resolution = ""
    Case @DesktopWidth = 640 And @DesktopHeight = 480; Video Graphics Array
    $resolution = "640 x 480 (4:3) VGA"
    Case @DesktopWidth = 800 And @DesktopHeight = 480; Wide Video Graphics Array
    $resolution = "800 x 480 (4:3) WVGA"
    Case @DesktopWidth = 854 And @DesktopHeight = 480; Full Wide Video Graphics Array
    $resolution = "854 x 480 (4:3) FWVGA"
    Case @DesktopWidth = 800 And @DesktopHeight = 600; Super Video Graphics Array
    $resolution = "800 x 600 (4:3) SVGA"
    Case @DesktopWidth = 960 And @DesktopHeight = 540; Quarter Full HD
    $resolution = "960 x 540 (16:9) qHD"
    Case @DesktopWidth = 1024 And @DesktopHeight = 576; Wide Super Video Graphics Array
    $resolution = "1024 x 576 (5:3) WSVGA"
    Case @DesktopWidth = 1024 And @DesktopHeight = 600; Wide Super Video Graphics Array
    $resolution = "1024 x 600 (5:3) WSVGA"
    Case @DesktopWidth = 1024 And @DesktopHeight = 768; eXtended Graphics Array
    $resolution = "1024 x 768 (4:3) XGA"
    Case @DesktopWidth = 1152 And @DesktopHeight = 864; eXtended Graphics Array Plus
    $resolution = "1152 x 864 (4:3) XGA+"
    Case @DesktopWidth = 1280 And @DesktopHeight = 720; Wide eXtended Graphics Array
    $resolution = "1280 x 720 (16:9) HD Ready"
    Case @DesktopWidth = 1280 And @DesktopHeight = 768; Wide eXtended Graphics Array
    $resolution = "1280 x 768 (15:9) WXGA"
    Case @DesktopWidth = 1280 And @DesktopHeight = 800; Wide eXtended Graphics Array
    $resolution = "1280 x 800 (16:10) WXGA"
    Case @DesktopWidth = 1280 And @DesktopHeight = 960; Super eXtended Graphics Array
    $resolution = "1280 x 960 (4:3) SXGA"
    Case @DesktopWidth = 1280 And @DesktopHeight = 1024; Super eXtended Graphics Array
    $resolution = "1280 x 1024 (5:4) SXGA"
    Case @DesktopWidth = 1360 And @DesktopHeight = 768; Wide eXtended Graphics Array
    $resolution = "1360 x 768 (16:9) WXGA"
    Case @DesktopWidth = 1366 And @DesktopHeight = 768; High Definition (720p)
    $resolution = "1366 x 768 (16:9) HD [720p]"
    Case @DesktopWidth = 1440 And @DesktopHeight = 900; Wide Super eXtended Graphics Array
    $resolution = "1440 x 900 (16:10) WSXGA"
    Case @DesktopWidth = 1400 And @DesktopHeight = 1050; Wide Super eXtended Graphics Array
    $resolution = "1440 x 900 (16:10) WSXGA"
    Case @DesktopWidth = 1600 And @DesktopHeight = 900; High Definition Plus (900p)
    $resolution = "1600 x 900 (16:9) HD+ [900p]"
    Case @DesktopWidth = 1600 And @DesktopHeight = 1200; Ultra eXtended Graphics Array
    $resolution = "1600 x 1200 (4:3) UXGA"
    Case @DesktopWidth = 1680 And @DesktopHeight = 1050; Wide Super eXtended Graphics Array Plus
    $resolution = "1680 x 1050 (16:10) WSXGA+"
    Case @DesktopWidth = 1920 And @DesktopHeight = 1080; Full High Definition (1080p)
    $resolution = "1920 x 1080 (16:9) HD [1080p]"
    Case @DesktopWidth = 1920 And @DesktopHeight = 1200; Wide Ultra eXtended Graphics Array
    $resolution = "1920 x 1200 (16:10) WUXGA"
    Case @DesktopWidth = 1920 And @DesktopHeight = 1400; Tesselar eXtended Graphics Array
    $resolution = "1920 x 1400 (48:35) TXGA"
    Case @DesktopWidth = 2048 And @DesktopHeight = 1080; Digital Film Projection
    $resolution = "2048 x 1080 (19:10) 2K"
    Case @DesktopWidth = 2048 And @DesktopHeight = 1152; Quad Wide eXtended Graphics Array
    $resolution = "2048 x 1152 (4:3) QWXGA"
    Case @DesktopWidth = 2048 And @DesktopHeight = 1536; Quad eXtended Graphics Array
    $resolution = "2048 x 1536 (4:3) QXGA"
    Case @DesktopWidth = 2538 And @DesktopHeight = 1080; Wide Projector
    $resolution = "2538 x 1080 (47:20) Wide Projector"
    Case @DesktopWidth = 2560 And @DesktopHeight = 1080; Cinema TV
    $resolution = "2560 x 1080 (64:27) Cinema TV"
    Case @DesktopWidth = 2560 And @DesktopHeight = 1440; Wide Quad High Definition
    $resolution = "2560 x 1440 (16:9) WQHD"
    Case @DesktopWidth = 2560 And @DesktopHeight = 1600; Wide Quad eXtended Graphics Array
    $resolution = "2560 x 1600 (16:10) WQXGA"
    Case @DesktopWidth = 2560 And @DesktopHeight = 2048; Quad Super eXtended Graphics Array
    $resolution = "2560 x 2048 (5:4) QSXGA"
    Case @DesktopWidth = 2880 And @DesktopHeight = 900; Dell Alienware
    $resolution = "2880 x 900 (16:5) Curved Display"
    Case @DesktopWidth = 3200 And @DesktopHeight = 2048; Wide Quad Super eXtended Graphics Array
    $resolution = "3200 x 2048 (25:16) WQSXGA"
    Case @DesktopWidth = 3200 And @DesktopHeight = 2400; Quad Ultra eXtended Graphics Array
    $resolution = "3200 x 2048 (4:3) QUXGA"
    Case @DesktopWidth = 3840 And @DesktopHeight = 2160; Quad Full High Definition
    $resolution = "3840 x 2160 (16:9) QFHD"
    Case @DesktopWidth = 3840 And @DesktopHeight = 2400; Wide Quad Ultra eXtended Graphics Array
    $resolution = "3840 x 2048 (16:10) WQUXGA"
    Case @DesktopWidth = 4096 And @DesktopHeight = 1716; Digital Film Projection
    $resolution = "4096 x 1716 (2:39) 4K"
    Case @DesktopWidth = 4096 And @DesktopHeight = 3072; Hex[adecatuple] eXtended Graphics Array
    $resolution = "4096 x 3072 (4:3) HXGA"
    Case @DesktopWidth = 5120 And @DesktopHeight = 3200; Wide Hex[adecatuple] Extended Graphics Array
    $resolution = "5120 x 3200 (16:10) WHXGA"
    Case @DesktopWidth = 5120 And @DesktopHeight = 4096; Hex[adecatuple] Super eXtended Graphics Array
    $resolution = "5120 x 4096 (5:4) HSXGA"
    Case @DesktopWidth = 6400 And @DesktopHeight = 4096; Wide Hex[adecatuple] Super eXtended Graphics Array
    $resolution = "6400 x 4096 (25:16) WHSXGA"
    Case @DesktopWidth = 6400 And @DesktopHeight = 4800; Hex[adecatuple] Ultra eXtended Graphics Array
    $resolution = "6400 x 4800 (4:3) HUXGA"
    Case @DesktopWidth = 7680 And @DesktopHeight = 4320; Ultra High Definition Television
    $resolution = "7680 x 4320 (16:9) UHDT"
    Case @DesktopWidth = 7680 And @DesktopHeight = 4800; Wide Hex[adecatuple] Ultra eXtended Graphics Array
    $resolution = "7680 x 4800 (16:10) WHUXGA"
    Case Else
    Return SetError(1, 0, $resolution)
    EndSwitch
    Return $resolution
    EndFunc ;==>_Desktop_Resolution


    จากโคด จะได้ประมาณ ว่า ผมจะดึง โปรแกรม Radmin มาแทน Ie น่ะครับ โค้ดจากด้านบนเป็นโค้ดเก่าของผมเอง
    ซึ่งผมสามารถทำให้ดึงโปรแกรม Radmin มาแสดงตามตำแหน่งที่ต้องการได้แล้วครับ
    แต่ที่ผมทำไม่ได้คือผมต้องการคือ ทำการเลือก Ipaddress ตามที่ผมต้องการให้อัตโนมัติและทำการ ใส่ user , password และทำการ Login เองด้วยอ่ะครับ

    นี้คือที่ผมต้องการ

    ยังไงก็ขอบคุณสำหรับตัวอย่างน่ะคัรบเด่ว ผมจะเอาไปใช้ศึกษาต่อยอดด ต่อ แต่มีแนวทางอะไร รบกวนบอกดว้ยน๊าคัรบ ขอบคุณครับ
    avatar
    zeedzars
    PSsix Member
    PSsix Member


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 29
    ความนิยม : 1
    เข้าร่วมเมื่อ : 26/08/2011

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by zeedzars 27/08/11, 02:11 pm

    จากโคด้ด้านบน เนื่องจาก ผม ใส่ link แล้วโพสข้อความไม่ได้ยังไงก็ถ้าจะตอ้งการ run code ผมก็ใส่
    web ใน ด้านล่างนี้ด้วยน่ะครับ
    $IE01_3.navigate2("")
    $IE02_4.navigate2("")

    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by aut 28/08/11, 01:35 pm

    นายจะทำไรอะเอาแบบใส่ชื่อแล้วกดไปเว๊บใช่เป่าแบบนี้เลยเอาไปดัดแปงเองละกัน

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

    $oIE = _IECreateEmbedded ()

    $Form1 = GUICreate("Form1", 554, 404, 192, 124)
    $Input1 = GUICtrlCreateInput("http://www.google.co.th", 8, 16, 449, 21)
    $Button1 = GUICtrlCreateButton("ไปจากอันที่พิม", 472, 16, 80, 25)
    $ie1 = GUICtrlCreateObj($oIE, 16, 48, 441, 337)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Button2 = GUICtrlCreateButton("ไปบอด pssix", 472, 72, 75, 25)
    $Button3 = GUICtrlCreateButton("ไปบอด autoit", 472, 112, 75, 25)
    GUISetState(@SW_SHOW)

    _IENavigate ($oIE, "http://pssix.blogspot.com",0)

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit


    Case $Input1
    Case $Button1
    _IENavigate ($oIE,GUICtrlRead($Input1),0)
    Case $Button2
    _IENavigate ($oIE, "http://pssix.forumotion.com",0)
    Case $Button3
    _IENavigate ($oIE, "http://www.autoitscript.com/forum/index.php?",0)
    EndSwitch
    WEnd
    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by aut 28/08/11, 01:51 pm

    งิเข้าใจละจาเอาแบบโคดอันนี้ใช่เป่า ชินจัง


    #include
    #include
    #include
    #include
    #include

    Dim $width = @DesktopWidth, $height = @DesktopHeight

    $oIE = _IECreateEmbedded()
    $oIE2 = _IECreateEmbedded()

    $Form1 = GUICreate("Form1", $width, $height, 0, 0, BitOR($WS_POPUP, $WS_SIZEBOX))
    $Input1 = GUICtrlCreateInput("http://www.google.co.th", $width / 2 + 10, 16, 449, 21)
    $Button1 = GUICtrlCreateButton("ไปจากอันที่พิม", $width / 2 + 472, 16, 80, 25)
    $ie1 = GUICtrlCreateObj($oIE, 0, 0, $width / 2, $height / 2)
    $ie2 = GUICtrlCreateObj($oIE2, $width / 2, $height / 2, $width / 2, $height / 2)
    GUISetState(@SW_SHOW)

    _IENavigate($oIE, "http://pssix.blogspot.com", 0)
    _IENavigate($oIE2, "http://pssix.blogspot.com", 0)

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    Case $Input1
    Case $Button1
    _IENavigate($oIE, GUICtrlRead($Input1), 0)
    _IENavigate($oIE2, GUICtrlRead($Input1), 0)
    EndSwitch
    WEnd
    avatar
    zeedzars
    PSsix Member
    PSsix Member


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 29
    ความนิยม : 1
    เข้าร่วมเมื่อ : 26/08/2011

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by zeedzars 29/08/11, 08:34 am

    ไม่ใช่จ๊า เรา ต้องการแบบนี้เน้ออ

    run("C:\Program Files\Radmin Viewer 3\Radmin.exe")

    >> ให้มันเลือก Ipaddress เองอัตโนมัติครับ
    >> ให้มัน ใส่ username,password เองอัตโนมัติครับ

    ประมาณนี้เน้อออ Y Y คือเราใส่พารามิเตอร์ให้มันไม่ได้อ่ะ
    POS
    POS
    PSsix
    PSsix


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 1152
    ความนิยม : 326
    เข้าร่วมเมื่อ : 19/07/2010

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by POS 29/08/11, 09:09 am

    ถ้าต้องการแบบนั้นต้องใช้โปรแกรม AutoIt Window Info ตรวจไปยังส่วนที่ต้องการควบคุม เพื่อเขียนคำสั่งควบคุมเฉพาะ

    แต่เนื่องจากผมไม่มีโปรแกรมนี้ (ถ้าหาดาวน์โหลดก็เกรงว่าจะไม่ใช่เวอร์ชั่นที่คุณใช้อยู่) ถ้ายังติดปัญหาอยู่ก็ลองส่งตัวโปรแกรมมาให้ผมทดลองเขียนสคริปต์ควบคุมดูก็ได้ครับ (ส่งทางกระทู้นี้ หรือ PM ส่งมาก็ได้)
    avatar
    zeedzars
    PSsix Member
    PSsix Member


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 29
    ความนิยม : 1
    เข้าร่วมเมื่อ : 26/08/2011

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by zeedzars 29/08/11, 11:55 am

    พี่ครับตอนนี้ผมใช้ ตัวนี้ เขียนอยู่คัรบ

    autoitscript.com/site/autoit/downloads/

    AutoIt Full Installation. Includes x86 and x64 components, and:

    •AutoIt program files, documentation and examples.
    •Aut2Exe – Script to executable converter. Convert your scripts into standalone .exe files!
    •AutoItX – DLL/COM control. Add AutoIt features to your favorite programming and scripting languages!
    •Editor – A cut down version of the SciTE script editor package to get started. Download the package below for the full version!

    ซึงพี่จะบอกผมว่าต้องโหลด ตัวเขียน สคริปใหม่ใช่ไหม๊ครับ
    คือตัวนี้ AutoIt Window Info

    พอผมโหลดเสร็จก็ พิมคำสั่งเดิมไปแล้วให้พี่ช่วยแก้ไขหรอครับ

    run("C:\Program Files\Radmin Viewer 3\Radmin.exe")

    >> ให้มันเลือก Ipaddress เองอัตโนมัติครับ
    >> ให้มัน ใส่ username,password เองอัตโนมัติครับ


    POS
    POS
    PSsix
    PSsix


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 1152
    ความนิยม : 326
    เข้าร่วมเมื่อ : 19/07/2010

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by POS 29/08/11, 12:33 pm

    ผมหมายถึงให้ส่งตัวโปรแกรม Radmin เวอร์ชั่นที่คุณใช้งานอยู่มาให้ผม ไม่ใช่ส่งโปรแกรมเขียนสคริปต์ AutoIt


    หมายเหตุ
    โปรแกรม AutoIt Window Info เป็นโปรแกรมเสริม จะอยู่ในโฟลเดอร์เดียวกับ AutoIt (ติดตั้งมาพร้อมกันอยู่แล้ว) ใน Start Menu ลองหาดูครับ


    POS
    POS
    PSsix
    PSsix


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 1152
    ความนิยม : 326
    เข้าร่วมเมื่อ : 19/07/2010

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by POS 29/08/11, 12:35 pm

    สำหรับการเขียนสคริปต์ AutoIt ใช้เวอร์ชั่น 3.3.6.1 และ SciTE v2.27 ดาวน์โหลดตามลิงก์ด้านล่างนี้

    [You must be registered and logged in to see this link.]

    (เวอร์ชั่นอื่นที่ใหม่กว่านี้จะเป็นตัวเบต้า มีบักและไม่มีความเสถียรไม่แนะนำให้เพราะ นอกจากอยากลองเล่นเท่านั้น)
    avatar
    zeedzars
    PSsix Member
    PSsix Member


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 29
    ความนิยม : 1
    เข้าร่วมเมื่อ : 26/08/2011

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by zeedzars 29/08/11, 01:15 pm

    อ่อขอโทษครับ ท่านพี่

    Radmin Version 3.4

    ครับป๋ม

    Link Download น่ะครับ

    เวร์ดวายเวป.radmin.com/th/
    avatar
    zeedzars
    PSsix Member
    PSsix Member


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 29
    ความนิยม : 1
    เข้าร่วมเมื่อ : 26/08/2011

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by zeedzars 29/08/11, 08:36 pm

    ลองไปค้นหาในบทความตปท เค๊ามีแต่ประมาณว่า เซทให้ install อัตโนมัติน่ะ คลิกเดียว แต่อย่างที่ผมต้องการนิสิ Y Y หาไม่ได้เรยแหะ
    POS
    POS
    PSsix
    PSsix


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 1152
    ความนิยม : 326
    เข้าร่วมเมื่อ : 19/07/2010

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by POS 30/08/11, 07:50 am

    นำโค้ดด้านล่างนี้ไปดัดแปลงดูครับ

    โค้ดด้านล่างนี้จะตรวจสอบว่าเปิดโปรแกรมอยู่หรือไม่ ถ้าเปิดอยู่ก็จะเพิ่มไอพี ให้อัตโนมัติ จากนั้นก็จะคลิกที่ไอคอนของไอพีนั้นเพื่อทำการเชื่อมต่อ ยังขาดการใส่ username กับ password (เมื่อเชือมต่อกับเครื่องอื่น) เนื่องจากผมลงโปรแกรมเครื่องนี้เพียงเครื่องเดียว

    [You must be registered and logged in to see this image.]

    Code:
    If WinExists("Radmin Viewer") Then
       WinActivate("Radmin Viewer")
       Send("{INSERT}")
       WinWait("[CLASS:#32770]")
       Send("192.168.2.1")
       Send("{ENTER}")
       Sleep(2000)
       Send("{DOWN}")
       Send("{ENTER}")
    EndIf
    avatar
    zeedzars
    PSsix Member
    PSsix Member


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 29
    ความนิยม : 1
    เข้าร่วมเมื่อ : 26/08/2011

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by zeedzars 30/08/11, 03:56 pm

    ผมลองเอาไปใช้ดัดแปลงแล้ว ซึ่งทำได้ครับ
    ครับ ขอบคุณมากเรายทีเดี่ยวน่ะครับพี่

    ตอนนนี้เหลือแค่ ให้มันใส่ user , pass แร้วก็ connect Y Y
    พี่พอมีแนวทางไหม๊ครบ
    avatar
    zeedzars
    PSsix Member
    PSsix Member


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 29
    ความนิยม : 1
    เข้าร่วมเมื่อ : 26/08/2011

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by zeedzars 30/08/11, 04:26 pm

    run("C:\Program Files\Radmin Viewer 3\Radmin.exe")

    If WinExists("Radmin Viewer") Then
    WinActivate("Radmin Viewer")
    Send("{INSERT}")
    WinWait("[CLASS:#32770]")
    Send("10.4.0.220")
    Send("{ENTER}")
    Sleep(2000)
    Send("{DOWN}")
    Send("{ENTER}")
    EndIf

    จากตัวอย่างที่พี่ให้ผม ผมได้ทำการดัดแปลงเป็นดังนี้ครับ
    #include <WindowsConstants.au3>

    Dim $width = @DesktopWidth, $height = @DesktopHeight

    run("C:\Program Files\Radmin Viewer 3\Radmin.exe")
    sleep(2000)



    If WinExists("Radmin Viewer") Then
    WinActivate("Radmin Viewer")
    Send("{INSERT}")
    WinWait("[CLASS:#32770]")
    Send("10.4.0.220")
    Send("{ENTER}")
    Sleep(2000)
    Send("{DOWN}")
    Send("{ENTER}")



    EndIf

    WinMove ( "Radmin Viewer", "" ,0/$width,0/$height,$width/4,$height/4)
    WinMove ( "Radmin security: 10.4.0.220", "" ,0/$width,0/$height,$width/4,$height/4)
    WinMove ( "10.4.0.220-Full Control", "" ,0/$width,0/$height,$width/4,$height/4)


    ตอนนี้ถึงหน้า login แล้วอีกนิดเดียวเอง
    เด่วผมก็ศึกษาวิธีไปกอ่นน่ะคัรบ ยังไงพี่แอดมินช่วยผมอีกหนอ่ยน่ะ Y Y

    ยังไงก็ขอบคุณพี่มากน่ะครับที่ช่วยผม
    avatar
    zeedzars
    PSsix Member
    PSsix Member


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 29
    ความนิยม : 1
    เข้าร่วมเมื่อ : 26/08/2011

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by zeedzars 30/08/11, 05:50 pm

    ตอนนนี้ผมให้มันคีย์ ค่า username ได้แล้วคัรบ แต่ผมทำให้มันเลื่อนลงไปกรอกรหัสไม่ได้อ่ะคัรบ

    #include

    Dim $width = @DesktopWidth, $height = @DesktopHeight

    run("C:\Program Files\Radmin Viewer 3\Radmin.exe")
    sleep(2000)



    If WinExists("Radmin Viewer") Then
    WinActivate("Radmin Viewer")
    Send("{INSERT}")
    WinWait("[CLASS:#32770]")
    Send("10.4.0.220")
    Send("{ENTER}")
    Sleep(2000)
    Send("{DOWN}")
    Send("{ENTER}")



    EndIf

    WinMove ( "Radmin Viewer", "" ,0/$width,0/$height,$width/4,$height/4)
    sleep(2000)
    Send("admin")
    Send("{DOWN}")
    Sleep(2000)
    Send("qweasdzxc")
    Send("{ENTER}")

    WinMove ( "Radmin security: 10.4.0.220", "" ,0/$width,0/$height,$width/4,$height/4)
    sleep(2000)
    WinMove ( "10.4.0.220-Full Control", "" ,0/$width,0/$height,$width/4,$height/4)

    Y Y รบกวนพี่ๆดูให้หน่อย
    avatar
    zeedzars
    PSsix Member
    PSsix Member


    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty
    จำนวนข้อความ : 29
    ความนิยม : 1
    เข้าร่วมเมื่อ : 26/08/2011

    สอบถามเรื่อง คำสั่ง Run  ด้วยโปรแกรม Radmin ครับ Empty Re: สอบถามเรื่อง คำสั่ง Run ด้วยโปรแกรม Radmin ครับ

    ตั้งหัวข้อ by zeedzars 30/08/11, 06:08 pm

    ขอบคุณครับ ผมสามารถทำได้แล้ว เด่วมีเคสไหนถามจะถามอีกน่ะครับ คุณ แอดมิน

      เวลาขณะนี้ 28/04/24, 12:03 pm