Sign in to follow this  
Followers 0
SroMaster

Need help with this want to Add GUI button/textbox/add config.ini script

16 posts in this topic

#1 ·  Posted (edited)

1St fo all i am new Mods please for me give me if i post this in the wrong section, friend name def_brian modified this script here Originally posted by Omfg2007 http://www.autoitscript.com/forum/index.ph...mp;#entry443296

#include <ScreenCapture.au3>
#include <ftp.au3>

HotKeySet("{End}","end")
hotkeyset("{pause}","pause"); press to pause, and unpause
$pause=-1
sleep(100)
$pause= NOT $pause

$answer = InputBox("Wait time","Min's Inbetween updates")

While 1
WinActivate("SRO_Client","")
WinWaitActive("SRO_Client","")
Sleep ($answer*60000)
_ScreenCapture_Capture(@ScriptDir & "/images/Location.jpg",895,5,1023,176)
_ScreenCapture_Capture(@ScriptDir & "/images/Xp & Sp.jpg",114, 716,335, 763)
_ScreenCapture_Capture(@ScriptDir & "/images/LvL.jpg",165,11,210,29)
Upload ()
WEnd

Func pause()
$pause=NOT $pause
While $pause
tooltip("Paused",0,0)
sleep(10)
WEnd
Tooltip("")
EndFunc

Func end ()
    Exit
EndFunc

Func Upload ()
$server = 'blueduck.website.com'
$username = 'username'
$pass = 'password'

$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass)
$Ftpp = _FtpPutFile($Conn, 'Where it is Coming from/', 'directory of the website/');add filename and destination
$Ftpp = _FtpPutFile($Conn, 'Where it is Coming from/', 'directory of the website/');add filename and destination
$Ftpp = _FtpPutFile($Conn, 'Where it is Coming from/', 'directory of the website/');add filename and destination
$Ftpc = _FTPClose($Open)
EndFuncoÝ÷ Ù1Þr^²êi¢Ç­¢Ö¤y«­ç§²-¡ù²~ée±ÊÞz{!¢Ú­ë(ëb¢}{ëÌ!Èl¥vZ(X¤zØb²êå

srochecker.html

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Sro Online Checker</title>
<style type="text/css">
<!--
body,td,th {
    color: #FFFFFF;
}
body {
    background-color: #000000;
}
-->
</style></head>

<body>
<strong><br />
<p>Curent Lvl:
<img src="LvL.jpg" / alt="Error"></p>
<p>Curent Xp & Sp:</p>
<img src="Xp & Sp.jpg" / alt="Error">
<p>Location:</p></strong>
<p><img src="Location.jpg" / alt="Error"></p>
<p><strong>Curent Status:Loged In</strong></p>

</body>



</html>
Edited by SroMaster

[center]dbod.rar player created by auto3.0Visit Topic here==>[font="Arial Black"]CLICK HERE[/font]<==PovClipse tutorial:Similar to auto it , with this you can make anything[/center]

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Func Upload ()
$server = 'blueduck.mywebsite.com'
$username = 'username'
$pass = 'password'

$dllhandle = DllOpen('wininet.dll')
$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass)
If @error Then
MsgBox(16, "Error", "Error 1")
EndIf
$Ftpp = _FtpPutFile($Conn, 'Location.jpg', 'username.freehostia.com');add filename and destination
If $Ftpp = 0 Then
MsgBox(16, "Error", "Fail to Put File: Error1")
EndIf
$Ftpp = _FtpPutFile($Conn, 'Xp & Sp.jpg', 'username.anothersite.com');add filename and destination
If $Ftpp = 0 Then
MsgBox(16, "Error", "Fail to Put File: Error2")
EndIf
$Ftpp = _FtpPutFile($Conn, 'LvL.jpg', 'username.anotheranothersite.com');add filename and destination
If $Ftpp = 0 Then
MsgBox(16, "Error", "Fail to Put File: Error3")
EndIf
$Ftpc = _FTPClose($Open)

To check wat is the problem, best to add in @error. Also, I removed the LvL.jpg/. It is a file not a dir so that last slash is not necessary.

Try it out, probably it works.

Edit: I forgot that you didn't include $dllhandle = DllOpen('wininet.dll')

Edited by Zepx

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

thanks for your help man i did it , still nothing now i see only errors it does everything else right just the upload part i get errors hehe. i dont know what to do.

Error:1 Ftp file could nt be uploaded and the rest follows Error2: same Error3:same:

Edited by SroMaster

[center]dbod.rar player created by auto3.0Visit Topic here==>[font="Arial Black"]CLICK HERE[/font]<==PovClipse tutorial:Similar to auto it , with this you can make anything[/center]

Share this post


Link to post
Share on other sites

Ok. Here is the code where you error out...

$Ftpp = _FtpPutFile($Conn, 'Location.jpg', 'username.freehostia.com');add filename and destination

If $Ftpp = 0 Then

MsgBox(16, "Error", "Fail to Put File: Error1")

EndIf

$Ftpp = _FtpPutFile($Conn, 'Xp & Sp.jpg', 'username.anothersite.com');add filename and destination

If $Ftpp = 0 Then

MsgBox(16, "Error", "Fail to Put File: Error2")

EndIf

$Ftpp = _FtpPutFile($Conn, 'LvL.jpg', 'username.anotheranothersite.com');add filename and destination

If $Ftpp = 0 Then

MsgBox(16, "Error", "Fail to Put File: Error3"

Xp & Sp.jpg may be an invalid file name, and if you are connecting to different sites, surely you would need to close the FTP connection, and then reopen it. Also, is it a passive FTP connection? What infomation can you give about the FTP?

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

here is the image post Errors. Posted Image

Here is an example wich works well with the file Attached FTP.AU3

Caution if you want to acess to several FTP, you ought to open a session for each FTP like in the example

;Put this in the main programm

#include 'FTP.AU3'
Const $INTERNET_FLAG_PASSIVE = 0x08000000
Const $INTERNET_FLAG_TRANSFER_ASCII = 0x00000001
Const $INTERNET_FLAG_TRANSFER_BINARY = 0x00000002
Const $INTERNET_DEFAULT_FTP_PORT = 21
Const $INTERNET_SERVICE_FTP = 1
Const $INTERNET_FLAG_NO_CACHE_WRITE = 0x4000000
Const $internet_FLAG = $INTERNET_FLAG_TRANSFER_BINARY + $INTERNET_FLAG_NO_CACHE_WRITE

$server = 'blueduck.mywebsite.com'
$username = 'username'
$pass = 'password'


Func Upload ()

$dllhandle = DllOpen('wininet.dll')
$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass,21,1, $INTERNET_FLAG_PASSIVE,0)
If @error Then
MsgBox(16, "Error", "Error 1")
EndIf
$Ftpp = _FtpPutFile($Conn, 'Location.jpg', '/nameofdirectory/',$internet_FLAG);add filename and destination
If $Ftpp = 0 Then
MsgBox(16, "Error", "Fail to Put File: Error1")
EndIf
$Ftpc = _FTPClose($Open)
$Open1 = _FTPOpen('MyFTP1 Control')
$Conn1 = _FTPConnect($Open1, $server, $username, $pass,21,1, $INTERNET_FLAG_PASSIVE,0)
If @error Then
MsgBox(16, "Error", "Error 1")
EndIf
$Ftpp = _FtpPutFile($Conn1, 'Xp & Sp.jpg', '/nameofdirectory/',$internet_FLAG);add filename and destination
If $Ftpp = 0 Then
MsgBox(16, "Error", "Fail to Put File: Error2")
EndIf
$Ftpc = _FTPClose($Open1)
$Open2= _FTPOpen('MyFTP2 Control')
$Conn2= _FTPConnect($Open2, $server, $username, $pass,21,1, $INTERNET_FLAG_PASSIVE,0)
If @error Then
MsgBox(16, "Error", "Error 1")
EndIf

$Ftpp = _FtpPutFile($Conn2, 'LvL.jpg', '/nameofdirectory/',$internet_FLAG);add filename and destination
If $Ftpp = 0 Then
MsgBox(16, "Error", "Fail to Put File: Error3")
EndIf
$Ftpc = _FTPClose($Open2)
Edited by LOULOU

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

no i am uploading the jpg files in to the same server. freehostia.com

i seperated 1 code from LouLou to file name srochecker4.au3

and the orginalcode file i named it srocheckerscreen5.au3 the code for this is

#include <ScreenCapture.au3>



HotKeySet("{End}","end")
hotkeyset("{pause}","pause"); press to pause, and unpause
$pause=-1
sleep(100)
$pause= NOT $pause

$answer = InputBox("Wait time","Min's Inbetween updates")

While 1
WinActivate("SRO_Client","")
WinWaitActive("SRO_Client","")
Sleep ($answer*60000)
_ScreenCapture_Capture(@ScriptDir & "/Location.jpg",895,5,1023,176)
_ScreenCapture_Capture(@ScriptDir & "/Xp & Sp.jpg",114, 716,335, 763)
_ScreenCapture_Capture(@ScriptDir & "/LvL.jpg",165,11,210,29)
Upload ()
WEnd

Func pause()
$pause=NOT $pause
While $pause
tooltip("Paused",0,0)
sleep(10)
WEnd
Tooltip("")
EndFunc

Func end ()
    Exit
EndFunc

Func Upload ()
FileOpen("srochecker4.au3")

FileClose;
EndFuncoÝ÷ ÚåÊØb©àyجÚ$zØb²ß~º&¶¨®("©f¡Øç_®­ëh¦,µ«­¢+ØÀÌØíÍÉÙÈôÌäí±ÕÕ¬¹Ýͥѹ½´Ìäì(ÀÌØíÕÍɹµôÌäíÕÍɹµÌäì(ÀÌØíÁÍÌôÌäíÁÍÍݽÉÌäì((ÀÌØí=Á¸ô}QA=Á¸ Ìäí5åQ@
½¹Ñɽ°Ìäì¤(ÀÌØí
½¹¸ô}QA
½¹¹Ð ÀÌØí=Á¸°ÀÌØíÍÉÙÈ°ÀÌØíÕÍɹµ°ÀÌØíÁÍ̤(ÀÌØíÑÁÀô}ÑÁAÕÑ¥± ÀÌØí
½¹¸°Ìäí]¡É¥Ð¥Ì
½µ¥¹É½´¼Ìäì°Ìäí¥ÉѽÉä½Ñ¡ÝͥѼÌäì¤í¥±¹µ¹ÍÑ¥¹Ñ¥½¸(ÀÌØíÑÁÀô}ÑÁAÕÑ¥± ÀÌØí
½¹¸°Ìäí]¡É¥Ð¥Ì
½µ¥¹É½´¼Ìäì°Ìäí¥ÉѽÉä½Ñ¡ÝͥѼÌäì¤í¥±¹µ¹ÍÑ¥¹Ñ¥½¸(ÀÌØíÑÁÀô}ÑÁAÕÑ¥± ÀÌØí
½¹¸°Ìäí]¡É¥Ð¥Ì
½µ¥¹É½´¼Ìäì°Ìäí¥ÉѽÉä½Ñ¡ÝͥѼÌäì¤í¥±¹µ¹ÍÑ¥¹Ñ¥½¸(ÀÌØíÑÁô}QA
±½Í ÀÌØí=Á¸¥l½½t)¹ÉÁ±¥ÐÝ¥Ñ Ñ¡¥Ì()m½uÕ¹UÁ±½ ¤)¥±=Á¸ ÅÕ½ÐíÍɽ¡­ÈйÔÌÅÕ½Ðì¤()¥±
±½Íì)¹Õ¹oÝ÷ Ù©Ý©£ºËm¯(§Ú(¥éíçâë"Ç¢±ê^­«^v+]ÙíÂä©l¢ÚòyÛhrw­ëh¥©Ý.¢ë¡×jg®§­Øb±«­¢+Ø¥¹±ÕÌäíMɹ
ÁÑÕɹÔÌÌäì(¥¹±ÕÌäíQ@¹TÌÌäì)
½¹ÍÐÀÌØí%9QI9Q}1}AMM%YôÁàÀàÀÀÀÀÀÀ)
½¹ÍÐÀÌØí%9QI9Q}1}QI9MI}M
%$ôÁàÀÀÀÀÀÀÀÄ)
½¹ÍÐÀÌØí%9QI9Q}1}QI9MI} %9IdôÁàÀÀÀÀÀÀÀÈ)
½¹ÍÐÀÌØí%9QI9Q}U1Q}QA}A=IPôÈÄ)
½¹ÍÐÀÌØí%9QI9Q}MIY%
}Q@ôÄ)
½¹ÍÐÀÌØí%9QI9Q}1}9=}

!}]I%QôÁàÐÀÀÀÀÀÀ)
½¹ÍÐÀÌØí¥¹ÑɹÑ}1ôÀÌØí%9QI9Q}1}QI9MI} %9Id¬ÀÌØí%9QI9Q}1}9=}

!}]I%Q((ÀÌØíÍÉÙÈôÌäí±ÕÕ¬¹Ýͥѹ½´Ìäì(ÀÌØíÕÍɹµôÌäíÕÍÈÌäì(ÀÌØíÁÍÌôÌäíÁÍÌÌäì()!½Ñ-åMÐ ÅÕ½Ðíí¹ôÅÕ½Ðì°ÅÕ½Ðí¹ÅÕ½Ðì¤)¡½Ñ­åÍÐ ÅÕ½ÐííÁÕÍôÅÕ½Ðì°ÅÕ½ÐíÁÕÍÅÕ½Ðì¤ìÁÉÍÌѼÁÕÍ°¹Õ¹ÁÕÍ(ÀÌØíÁÕÍô´Ä)ͱÀ ÄÀÀ¤(ÀÌØíÁÕÍô9=PÀÌØíÁÕÍ((ÀÌØí¹ÍÝÈô%¹ÁÕÑ    ½à ÅÕ½Ðí]¥ÐÑ¥µÅÕ½Ðì°ÅÕ½Ðí5¥¸ÌäíÌ%¹ÑݸÕÁÑÌÅÕ½Ðì¤()]¡¥±Ä)]¥¹Ñ¥ÙÑ ÅÕ½ÐíMI=}
±¥¹ÐÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤)]¥¹]¥ÑÑ¥Ù ÅÕ½ÐíMI=}
±¥¹ÐÅÕ½Ðì°ÅÕ½ÐìÅÕ½Ðì¤)M±À ÀÌØí¹ÍÝȨØÀÀÀÀ¤)}Mɹ
ÁÑÕÉ}
ÁÑÕÉ¡MÉ¥ÁѥȵÀìÅÕ½Ðì½1½Ñ¥½¸¹©ÁÅÕ½Ðì°àäÔ°Ô°ÄÀÈÌ°ÄÜؤ)}Mɹ
ÁÑÕÉ}
ÁÑÕÉ¡MÉ¥ÁѥȵÀìÅÕ½Ðì½aÀµÀìMÀ¹©ÁÅÕ½Ðì°ÄÄаÜÄØ°ÌÌÔ°ÜØ̤)}Mɹ
ÁÑÕÉ}
ÁÑÕÉ¡MÉ¥ÁѥȵÀìÅÕ½Ðì½1Ù0¹©ÁÅÕ½Ðì°ÄØÔ°ÄÄ°ÈÄÀ°Èä¤)UÁ±½ ¤)]¹()Õ¹ÁÕÍ ¤(ÀÌØíÁÕÍõ9=PÀÌØíÁÕÍ)]¡¥±ÀÌØíÁÕÍ)ѽ½±Ñ¥À ÅÕ½ÐíAÕÍÅÕ½Ðì°À°À¤)ͱÀ ÄÀ¤)]¹)Q½½±Ñ¥À ÅÕ½ÐìÅÕ½Ðì¤)¹Õ¹()Õ¹¹ ¤(%á¥Ð)¹Õ¹()Õ¹UÁ±½ ¤((ÀÌØí±±¡¹±ô±±=Á¸ ÌäíÝ¥¹¥¹Ð¹±°Ìäì¤(ÀÌØí=Á¸ô}QA=Á¸ Ìäí5åQ@
½¹Ñɽ°Ìäì¤(ÀÌØí
½¹¸ô}QA
½¹¹Ð ÀÌØí=Á¸°ÀÌØíÍÉÙÈ°ÀÌØíÕÍɹµ°ÀÌØíÁÍÌ°ÈÄ°Ä°ÀÌØí%9QI9Q}1}AMM%Y°À¤)%ÉɽÈQ¡¸)5Í ½à ÄØ°ÅÕ½ÐíÉɽÈÅÕ½Ðì°ÅÕ½ÐíÉɽÈÄÅÕ½Ðì¤)¹%(ÀÌØíÑÁÀô}ÑÁAÕÑ¥± ÀÌØí
½¹¸°Ìäí1½Ñ¥½¸¹©ÁÌäì°Ìäì½±ÕÕ¬¹Ýͥѹ½´¼Ìäì°ÀÌØí¥¹ÑɹÑ}1¤í¥±¹µ¹ÍÑ¥¹Ñ¥½¸)%ÀÌØíÑÁÀôÀQ¡¸)5Í  ½à ÄØ°ÅÕ½ÐíÉɽÈÅÕ½Ðì°ÅÕ½Ðí¥°Ñ¼AÕÐ¥±èÉɽÈÄÅÕ½Ðì¤)¹%(ÀÌØíÑÁô}QA
±½Í ÀÌØí=Á¸¤(ÀÌØí=Á¸Äô}QA=Á¸ Ìäí5åQ@Ä
½¹Ñɽ°Ìäì¤(ÀÌØí
½¹¸Äô}QA
½¹¹Ð ÀÌØí=Á¸Ä°ÀÌØíÍÉÙÈ°ÀÌØíÕÍɹµ°ÀÌØíÁÍÌ°ÈÄ°Ä°ÀÌØí%9QI9Q}1}AMM%Y°À¤)%ÉɽÈQ¡¸)5Í   ½à ÄØ°ÅÕ½ÐíÉɽÈÅÕ½Ðì°ÅÕ½ÐíÉɽÈÄÅÕ½Ðì¤)¹%(ÀÌØíÑÁÀô}ÑÁAÕÑ¥± ÀÌØí
½¹¸Ä°ÌäíaÀµÀìMÀ¹©ÁÌäì°Ìäì½±ÕÕ¬¹Ýͥѹ½´¼Ìäì°ÀÌØí¥¹ÑɹÑ}1¤í¥±¹µ¹ÍÑ¥¹Ñ¥½¸)%ÀÌØíÑÁÀôÀQ¡¸)5Í   ½à ÄØ°ÅÕ½ÐíÉɽÈÅÕ½Ðì°ÅÕ½Ðí¥°Ñ¼AÕÐ¥±èÉɽÈÈÅÕ½Ðì¤)¹%(ÀÌØíÑÁô}QA
±½Í ÀÌØí=Á¸Ä¤(ÀÌØí=Á¸Èô}QA=Á¸ Ìäí5åQ@È
½¹Ñɽ°Ìäì¤(ÀÌØí
½¹¸Èô}QA
½¹¹Ð ÀÌØí=Á¸È°ÀÌØíÍÉÙÈ°ÀÌØíÕÍɹµ°ÀÌØíÁÍÌ°ÈÄ°Ä°ÀÌØí%9QI9Q}1}AMM%Y°À¤)%ÉɽÈQ¡¸)5Í   ½à ÄØ°ÅÕ½ÐíÉɽÈÅÕ½Ðì°ÅÕ½ÐíÉɽÈÄÅÕ½Ðì¤)¹%((ÀÌØíÑÁÀô}ÑÁAÕÑ¥± ÀÌØí
½¹¸È°Ìäí1Ù0¹©ÁÌäì°Ìäì½±ÕÕ¬¹Ýͥѹ½´¼Ìäì°ÀÌØí¥¹ÑɹÑ}1¤í¥±¹µ¹ÍÑ¥¹Ñ¥½¸)%ÀÌØíÑÁÀôÀQ¡¸)5Í   ½à ÄØ°ÅÕ½ÐíÉɽÈÅÕ½Ðì°ÅÕ½Ðí¥°Ñ¼AÕÐ¥±èÉɽÈÌÅÕ½Ðì¤)¹%(ÀÌØíÑÁô}QA
±½Í ÀÌØí=Á¸È¤)¹Õ¹oÝ÷ Û[-zºè®
-±¬¢bvz-uç%j½l¢'âÅçméâZ±ç(׫®ìk(§«­¢+ØÀÌØí
½¹¸ô}QA
½¹¹Ð ÀÌØí=Á¸°ÀÌØíÍÉÙÈ°ÀÌØíÕÍɹµ°ÀÌØíÁÍÌ°ÈÄ°Ä°ÀÌØí%9QI9Q}1}AMM%Y°À¤II=H(ÀÌØí
½¹¸Äô}QA
½¹¹Ð ÀÌØí=Á¸Ä°ÀÌØíÍÉÙÈ°ÀÌØíÕÍɹµ°ÀÌØíÁÍÌ°ÈÄ°Ä°ÀÌØí%9QI9Q}1}AMM%Y°À¤II=

i really need some help

Edited by SroMaster

[center]dbod.rar player created by auto3.0Visit Topic here==>[font="Arial Black"]CLICK HERE[/font]<==PovClipse tutorial:Similar to auto it , with this you can make anything[/center]

Share this post


Link to post
Share on other sites

Please verify the following instruction

$Ftpp = _FtpPutFile($Conn1, 'Xp & Sp.jpg', '/blueduck.website.com/',$internet_FLAG);add filename and destination

Is //blueduck.website.com/ The name of the directory where you want to put your files ?

It seems it is the name of your FTP and in this case it is normal that it doesnt work.

Share this post


Link to post
Share on other sites

#10 ·  Posted (edited)

yes ftp://blueduck.freehostia.com is the ftp server /blueduck.freehostia.com/ is also the directory folder so its yes. noi mean this certain ftp blueduck.freehostia is just an example, i am hiding the real address. if you need the real address let me know i will gladly put it up.

Edited by SroMaster

[center]dbod.rar player created by auto3.0Visit Topic here==>[font="Arial Black"]CLICK HERE[/font]<==PovClipse tutorial:Similar to auto it , with this you can make anything[/center]

Share this post


Link to post
Share on other sites

yes ftp://blueduck.freehostia.com is the ftp server /blueduck.freehostia.com/ is also the directory folder so its yes. noi mean this certain ftp blueduck.freehostia is just an example, i am hiding the real address. if you need the real address let me know i will gladly put it up.

Send me a privazte message with you pass and user and ftp name, you will change it after i sucess transfering it's the only things i can test for you

Share this post


Link to post
Share on other sites

ok i sent you an alternate ftp with pass it wont hurt me at all. just check your private msg. also i would like to add GUi in to this for example UICtrlCreateButton, i sent you a private code LouLou. check your priv msg.


[center]dbod.rar player created by auto3.0Visit Topic here==>[font="Arial Black"]CLICK HERE[/font]<==PovClipse tutorial:Similar to auto it , with this you can make anything[/center]

Share this post


Link to post
Share on other sites

i am trying also add a GUi on to this auto code look for above it example. i need some help to combine top script with this code here make it work. who can help me out with this your help would greatly the appreciated !

#include <GUIConstants.au3>
#include <FTP.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 633, 382, 193, 115)
$l_FTPSession = GUICtrlCreateGroup("Connect", 8, 56, 209, 273)
$Label1 = GUICtrlCreateLabel("Enter your username", 16, 72, 101, 17)
$username = GUICtrlCreateInput("", 16, 96, 177, 21)
$Label2 = GUICtrlCreateLabel("Enter your password", 16, 128, 100, 17)
$password = GUICtrlCreateInput("", 16, 152, 177, 21)
$Label3 = GUICtrlCreateLabel("Enter the host", 16, 184, 70, 17)
$host = GUICtrlCreateInput("", 16, 208, 177, 21)
$Label4 = GUICtrlCreateLabel("Enter the port (default: 21)", 16, 240, 127, 17)
$port = GUICtrlCreateInput("", 16, 264, 177, 21)
$connectbtn = GUICtrlCreateButton("Connect", 48, 296, 121, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$menufile = GUICtrlCreateMenu("File")
$newconnection = GUICtrlCreateMenuItem("New Connection", $menufile)
$exit = GUICtrlCreateMenuItem("Exit", $menufile)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        
    Case $username
        $s_Username = GuiCtrlRead($username)
        GuiCtrlsetData($s_Username, $username)
    case $password 
        $s_Password = GuiCtrlRead($password)
        GUICtrlSetData($s_Password, $password)
    case $host
        $s_ServerName = GuiCtrlRead($host)
        GuiCtrlSetData($s_ServerName, $host)
    case $port
        $i_ServerPort = GuiCtrlRead($port)
        GuiCtrlSetData($i_ServerPort, $port)
    case $connectbtn
        _FTPConnect($host, $username, $password, $port)
        
    EndSwitch
WEnd

[center]dbod.rar player created by auto3.0Visit Topic here==>[font="Arial Black"]CLICK HERE[/font]<==PovClipse tutorial:Similar to auto it , with this you can make anything[/center]

Share this post


Link to post
Share on other sites

i am trying also add a GUi on to this auto code look for above it example. i need some help to combine top script with this code here make it work. who can help me out with this your help would greatly the appreciated !

Share this post


Link to post
Share on other sites

#15 ·  Posted (edited)

-.- Dude please do not spam my thread snow it is not wise to mimic some ones thread, you should create your own thread. now i have to report you to Mod,

Also : disregard the Gui or ftp gui i just want to make the ftp upload work which it doesn't work and gives me error, if any 1 know any suggestion please feel free to post .

Edited by SroMaster

[center]dbod.rar player created by auto3.0Visit Topic here==>[font="Arial Black"]CLICK HERE[/font]<==PovClipse tutorial:Similar to auto it , with this you can make anything[/center]

Share this post


Link to post
Share on other sites

#16 ·  Posted (edited)

Here is the finishing thanks to LouLous method and the rest.

#include <ScreenCapture.au3>
#include <FTP2.au3>

HotKeySet("{End}","end")
hotkeyset("{pause}","pause"); press to pause,Unpause for 0x33.org users
$pause=-1
sleep(100)
$pause= NOT $pause

$answer = InputBox("Wait time","Min's Inbetween updates")

While 1
WinActivate("SRO_Client","")
WinWaitActive("SRO_Client","")
Sleep ($answer*60000)
_ScreenCapture_Capture(@ScriptDir & "/Location.jpg",895,5,1023,176)
_ScreenCapture_Capture(@ScriptDir & "/Xp & Sp.jpg",114, 716,335, 763)
_ScreenCapture_Capture(@ScriptDir & "/LvL.jpg",165,11,210,29)
Upload ()
WEnd

Func pause()
$pause=NOT $pause
While $pause
tooltip("Paused",0,0)
sleep(10)
WEnd
Tooltip("")
EndFunc

Func end ()
    Exit
EndFunc

Func Upload ()
$server = "ftp.website.com"
$username = 'username'
$pass = 'password'

$dllhandle = DllOpen('wininet.dll')
$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass,21,1, 0x08000000,0)
If @error Then
MsgBox(16, "Error", "Error 1")
EndIf
_FtpSetCurrentDir($conn, "/Website Directory here/"); <<== credit to LOULOU/auitscript.com/forum http://tinyurl.com/2qosn6 

$old="Location.jpg"
$new = "Location.jpg"
$Ftpp = _FtpPutFile($conn, $new, $old, $internet_FLAG ) ; <<== credit goes To dj30324 ox33.org !!
If $Ftpp = 0 Then
MsgBox(16, "Error", "Fail to Put File: Error1")
EndIf

$old="Xp & Sp.jpg"
$new = "Xp & Sp.jpg"
$Ftpp = _FtpPutFile($conn, $new, $old, $internet_FLAG ) ; <<== Also goes to def_brain_ox33.org !!
If $Ftpp = 0 Then
MsgBox(16, "Error", "Fail to Put File: Error2")
EndIf

$old="LvL.jpg"
$new = "Lvl.jpg"
$Ftpp = _FtpPutFile($conn, $new, $old, $internet_FLAG ) ; <<== credit to omfg2007 origanal poster and tron_ox33.org !!
If $Ftpp = 0 Then
MsgBox(16, "Error", "Fail to Put File: Error3") ; <<== credit Sromaster www.autoitscript.com/forum!!

$Ftpc = _FTPClose($Open)
DllClose($dllhandle) ; <<== GUild Shinigami Venus edited by Zarakiu with a u 
EndFunc
Return To While 1oÝ÷ Ú,Ûhi×ZB-{[£h®ë®v¦z¬³
+uûi±êïz¸h²ÙÚïÝ·¶ò¥«a§¶ÚuÛ^ÆÖèÅú+©¡ûazv¦z:`j[(Á©í¶uÈhǨ~Ø^)íëbç^¬¢¶Ö¤zÇè®Ø^f yªÞ¶Þºhi׶ayûi±êïz¶¥²Ûhi×kiبr"qçè®ÚuÙ¨­ëaz}â¨~ÚnÞ±Êâ¦Ö¥²Ûhi×m{_¢»ayÉbz{gjg¢·è­ìZ^jÛazËh¦Ç+pêÞÛÔ« "âz{bÁ©í¶n¶×±µº1~íç!¢¡ûaz¦yÉbz{ZÜÛhi×Zºhi׫nëm¢x²ÕƧéiê.·*.®H§vw¬³¥
ÞjÙrm橦·«^u©l£§¶ÚuÖ®,z¶î¶Ú'rw¦ÊÇ+pØm+zZ0jëh×6#include <GUIConstants.au3>
#include <FTP.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 633, 382, 193, 115)
$l_FTPSession = GUICtrlCreateGroup("Connect", 8, 56, 209, 273)
$Label1 = GUICtrlCreateLabel("Enter your username", 16, 72, 101, 17)
$username = GUICtrlCreateInput("", 16, 96, 177, 21)
$Label2 = GUICtrlCreateLabel("Enter your password", 16, 128, 100, 17)
$password = GUICtrlCreateInput("", 16, 152, 177, 21)
$Label3 = GUICtrlCreateLabel("Enter the host", 16, 184, 70, 17)
$host = GUICtrlCreateInput("", 16, 208, 177, 21)
$Label4 = GUICtrlCreateLabel("Enter the port (default: 21)", 16, 240, 127, 17)
$port = GUICtrlCreateInput("", 16, 264, 177, 21)
$connectbtn = GUICtrlCreateButton("Connect", 48, 296, 121, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$menufile = GUICtrlCreateMenu("File")
$newconnection = GUICtrlCreateMenuItem("New Connection", $menufile)
$exit = GUICtrlCreateMenuItem("Exit", $menufile)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        
    Case $username
        $s_Username = GuiCtrlRead($username)
        GuiCtrlsetData($s_Username, $username)
    case $password 
        $s_Password = GuiCtrlRead($password)
        GUICtrlSetData($s_Password, $password)
    case $host
        $s_ServerName = GuiCtrlRead($host)
        GuiCtrlSetData($s_ServerName, $host)
    case $port
        $i_ServerPort = GuiCtrlRead($port)
        GuiCtrlSetData($i_ServerPort, $port)
    case $connectbtn
        _FTPConnect($host, $username, $password, $port)
        
    EndSwitch
WEnd
Edited by SroMaster

[center]dbod.rar player created by auto3.0Visit Topic here==>[font="Arial Black"]CLICK HERE[/font]<==PovClipse tutorial:Similar to auto it , with this you can make anything[/center]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0