is war jetzt ein vote link
und die id gibt sortiert den hit einer bestimmten seite zu sry
Beiträge von azunai
-
-
http://www.gamesiteguide.com/index.php?page=in&id=85
kann man ja gleich mal nutzen
-
hi
also ich mach mittlerweile rellativ viele inet sachen mit _runDOS("start " $url)aber jetzt hab ich das erste mal das problem das wenn ein & in der url ist der link dort abgeschnitten wird...
also aus http://blablub.com/index.php&do zb wird nurnoch http://blablub.com/index.phpwie kann ich dos dazu bringen einen solchen link jedoch an den inet browser zu senden?
hoffe man versteht mein problem
-
hm also ich hab einen netgear WGR624 v7 und bei dem gibt es kein setup.cgi nur was dis & connect angeht st_poe.cgi aber da willer nicht ?todo=disconnect
wie findet man raus wie der dl ist für discon?
Spoiler anzeigen
<html>
<head>
<META name="description" content="WGR614v7">
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<META http-equiv="Pragma" content="no-cache">
<META HTTP-equiv="Cache-Control" content="no-cache"><meta HTTP-EQUIV="Expires" CONTENT="Mon, 06 Jan 1990 00:00:01 GMT">
<link rel="stylesheet" href="form.css">
<title>PPPoE-Status</title>
<script language="javascript" type="text/javascript">
<!--function refreshPage() {
if(document.forms[0].Connect.value == 'Renew')
return true;
window.setTimeout('window.location.href = "RST_st_poe.htm";',5000);
}function disableConButton()
{
document.forms[0].Connect.disabled = true;
document.forms[0].Disconnect.disabled = true;
document.forms[0].ConMethod.value = " Connect ";document.forms[0].submit();
return true;
}function disableDisConButton()
{
document.forms[0].Connect.disabled = true;
document.forms[0].Disconnect.disabled = true;
document.forms[0].ConMethod.value = "Disconnect";document.forms[0].submit();
return true;
}//-->
</script>
</head>
<body bgcolor="#ffffff" onLoad="refreshPage()">
<form name="poe_st" method="post" action="st_poe.cgi"><TABLE border=0 width="100%">
<TR>
<TD colspan="2" align="left" nowrap><h1>Verbindungsstatus </h1></TD>
</TR></TABLE>
<table border="0" cellpadding="0" cellspacing="3" width="100%">
<tr> <!-- RULE -->
<td background="liteblue.gif" height="12"> </td></tr>
</table><table width="100%" border=1 cellspacing=1 cellpadding=4>
<tr>
<TD NOWRAP width="50%"><B>Verbindungsdauer</B></td>
<TD NOWRAP width="50%">00:05:21</td>
</tr>
<tr>
<TD NOWRAP><B>Verbindung zum Server herstellen</B></td><TD NOWRAP>Ein</td>
</tr>
<tr>
<TD NOWRAP><B>Verbindungsparameter übermitteln</B></td>
<TD NOWRAP>Ein</td>
</tr>
<tr>
<TD NOWRAP><B>Authentifizierung</B></td>
<TD NOWRAP>On</td></tr>
<tr>
<TD NOWRAP><B>IP-Adressen beziehen</B></td>
<TD NOWRAP>78.55.64.77</td>
</tr>
<tr>
<TD NOWRAP><B>Netzwerkmaske beziehen</B></td>
<TD NOWRAP>255.255.255.255</td>
</tr></table>
<table border="0" cellpadding="0" cellspacing="3" width="100%">
<TR>
<TD align="center" nowrap>
<BR>
<input type="submit" name="Connect" value=" Verbinden " onClick="return disableConButton()">
<input type="submit" name="Disconnect" value="Verbindung beenden" onClick="return disableDisConButton()"></TD>
</TR><tr> <!-- RULE -->
<td background="liteblue.gif" height="12"> </td></tr>
<TR>
<TD align="center"><input type=button name="close" value="Fenster schließen" onclick="self.close();"></TD>
</TR>
</TABLE>
<input type="hidden" name="ConMethod" value="Disconnect"></form>
</body>
</html> -
hm gut nur ich wüsste nicht was es blocken sollte....
firewall blockt es bestimmt nicht das lässt sich ja schnell überprüfen,
über nen proxy arbeite ich auch nicht,
und 2 freunde von mir haben die beiden scripts auch bei sich getestet, bei beiden die selben rückgabe werte,
und ein extra programm welches nur bestimmte ftp progs gewähren lässt hab ioch auch nicht...open= zufalls zahl
connect= 0
daher dann auch put und close =0edit:
ja hab sie ja mit in den ersten spoiler gepackt
-
also ich raffs nicht...
ich habe in sämtlichen foren hier jetzt nach meinem fehler gesucht, aber nix gefunden...
die fertigen ftp upload script funktionieren auch nicht... liegts an meinem ftp server oder meinem pc oder den scripts???? xD
also von markus das neue upload script funktioniert in sofern nicht da ich keine connection bekomme...
von
ytwinky's FTP-Transfer genau die selbe fehler meldung...also was ist so falsch???????
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstants.au3>
#include <Ftp.au3>
#include <date.au3>
Global $DateiName
Dim $i=0
; == GUI generated with Koda ==
GUICreate("yFTP", 505, 654, 192, 125)
GUICtrlCreateLabel("ytwinky's FTP-Transfer", 72, 0, 330, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Group1 = GUICtrlCreateGroup("FTP-Server", 8, 56, 201, 49)
$Server=GUICtrlCreateInput("", 16, 72, 185, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("FTP-User", 8, 112, 201, 49)
$User= GUICtrlCreateInput("", 16, 128, 185, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("FTP-Passwort", 8, 168, 201, 49)
$Passw= GUICtrlCreateInput("", 16, 184, 185, 21, $ES_PASSWORD, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Port", 240, 56, 57, 49)
$Port=GUICtrlCreateInput("21", 248, 72, 41, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Suchen= GUICtrlCreateButton("DateiSuchen", 352, 64, 75, 25)
$Senden= GUICtrlCreateButton("Senden", 352, 128, 75, 25)
$Quit= GUICtrlCreateButton("Quit", 352, 184, 75, 25)
$Prt= GUICtrlCreateEdit("TransferProtokoll", 0, 224, 505, 425, -1, $WS_EX_CLIENTEDGE)
GUISetState(@SW_SHOW)
While 1
Switch GuiGetMsg()
Case $GUI_EVENT_CLOSE, $Quit
ExitLoop
Case $Suchen
$DateiName=FileOpenDialog("UpLoad Datei", "DeskTop", "Alle (*.*)")
AppendPrt("Transfer von " &$DateiName)
Case $Senden
$OpenHnd=_FTPOpen('myFTP')
AppendPrt("FTPOpen " &"myFTP " &$OpenHnd)
$ConnHnd=_FTPConnect($OpenHnd, GUICtrlRead($Server), GUICtrlRead($User), GUICtrlRead($Passw))
AppendPrt("FTPConnect " &$ConnHnd &" " &GUICtrlRead($Server) &" " &GUICtrlRead($User) &" " &GUICtrlRead($Passw))
$FtpErr=_FtpPutFile($ConnHnd, $DateiName, 'tamor.gif')
AppendPrt("FTPPutFile " &$FtpErr &" " & $DateiName)
$FtpcErr=_FTPClose($OpenHnd)
AppendPrt("FTPClose " &$FtpErr)
Case Else
;-))
EndSwitch
WEnd
ExitFunc AppendPrt($What)
[/autoit] [autoit][/autoit] [autoit][/autoit][autoit]
GUICtrlSetData($Prt, GUICtrlRead($Prt) &@CrLf &_Now() &" " &$What)
EndFunc
[/autoit] [autoit][/autoit] [autoit]
;===============================================================================
;
; Function Name: _FTPOpen()
; Description: Opens an FTP session.
; Parameter(s): $s_Agent - Random name. ( like "myftp" )
; $l_AccessType - I dont got a clue what this does.
; $s_ProxyName - ProxyName.
; $s_ProxyBypass - ProxyByPasses's.
; $l_Flags - Special flags.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - Returns an indentifier.
; On Failure - 0 and sets @ERROR
; Author(s): Wouter van Kesteren.
;
;===============================================================================Func _FTPOpen($s_Agent, $l_AccessType = 1, $s_ProxyName = '', $s_ProxyBypass = '', $l_Flags = 0)
[/autoit] [autoit][/autoit] [autoit]
Local $ai_InternetOpen = DllCall('wininet.dll', 'long', 'InternetOpen', 'str', $s_Agent, 'long', $l_AccessType, 'str', $s_ProxyName, 'str', $s_ProxyBypass, 'long', $l_Flags)
If @error OR $ai_InternetOpen[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_InternetOpen[0]
EndFunc ;==> _FTPOpen();===============================================================================
[/autoit] [autoit][/autoit] [autoit]
;
; Function Name: _FTPConnect()
; Description: Connects to an FTP server.
; Parameter(s): $l_InternetSession - The Long from _FTPOpen()
; $s_ServerName - Server name/ip.
; $s_Username - Username.
; $s_Password - Password.
; $i_ServerPort - Server port ( 0 is default (21) )
; $l_Service - I dont got a clue what this does.
; $l_Flags - Special flags.
; $l_Context - I dont got a clue what this does.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - Returns an indentifier.
; On Failure - 0 and sets @ERROR
; Author(s): Wouter van Kesteren
;
;===============================================================================Func _FTPConnect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_ServerPort = 0, $l_Service = 1, $l_Flags = 0, $l_Context = 0)
[/autoit] [autoit][/autoit] [autoit]
Local $ai_InternetConnect = DllCall('wininet.dll', 'long', 'InternetConnect', 'long', $l_InternetSession, 'str', $s_ServerName, 'int', $i_ServerPort, 'str', $s_Username, 'str', $s_Password, 'long', $l_Service, 'long', $l_Flags, 'long', $l_Context)
If @error OR $ai_InternetConnect[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_InternetConnect[0]
EndFunc ;==> _FTPConnect();===============================================================================
[/autoit] [autoit][/autoit] [autoit]
;
; Function Name: _FTPPutFile()
; Description: Puts an file on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_LocalFile - The local file.
; $s_RemoteFile - The remote Location for the file.
; $l_Flags - Special flags.
; $l_Context - I dont got a clue what this does.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================Func _FTPPutFile($l_FTPSession, $s_LocalFile, $s_RemoteFile, $l_Flags = 0, $l_Context = 0)
[/autoit] [autoit][/autoit] [autoit]Local $ai_FTPPutFile = DllCall('wininet.dll', 'int', 'FtpPutFile', 'long', $l_FTPSession, 'str', $s_LocalFile, 'str', $s_RemoteFile, 'long', $l_Flags, 'long', $l_Context)
[/autoit] [autoit][/autoit] [autoit]
If @error OR $ai_FTPPutFile[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_FTPPutFile[0]
EndFunc ;==> _FTPPutFile();===============================================================================
[/autoit] [autoit][/autoit] [autoit]
;
; Function Name: _FTPDelFile()
; Description: Delete an file from an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_RemoteFile - The remote Location for the file.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================Func _FTPDelFile($l_FTPSession, $s_RemoteFile)
[/autoit] [autoit][/autoit] [autoit]
Local $ai_FTPPutFile = DllCall('wininet.dll', 'int', 'FtpDeleteFile', 'long', $l_FTPSession, 'str', $s_RemoteFile)
If @error OR $ai_FTPPutFile[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_FTPPutFile[0]
EndFunc ;==> _FTPDelFile();===============================================================================
[/autoit] [autoit][/autoit] [autoit]
;
; Function Name: _FTPRenameFile()
; Description: Renames an file on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_Existing - The old file name.
; $s_New - The new file name.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================Func _FTPRenameFile($l_FTPSession, $s_Existing, $s_New)
[/autoit] [autoit][/autoit] [autoit]
Local $ai_FTPRenameFile = DllCall('wininet.dll', 'int', 'FtpRenameFile', 'long', $l_FTPSession, 'str', $s_Existing, 'str', $s_New)
If @error OR $ai_FTPRenameFile[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_FTPRenameFile[0]
EndFunc ;==> _FTPRenameFile();===============================================================================
[/autoit] [autoit][/autoit] [autoit]
;
; Function Name: _FTPMakeDir()
; Description: Makes an Directory on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_Remote - The file name to be deleted.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================Func _FTPMakeDir($l_FTPSession, $s_Remote)
[/autoit] [autoit][/autoit] [autoit]
Local $ai_FTPMakeDir = DllCall('wininet.dll', 'int', 'FtpCreateDirectory', 'long', $l_FTPSession, 'str', $s_Remote)
If @error OR $ai_FTPMakeDir[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_FTPMakeDir[0]
EndFunc ;==> _FTPMakeDir();===============================================================================
[/autoit] [autoit][/autoit] [autoit]
;
; Function Name: _FTPDelDir()
; Description: Delete's an Directory on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_Remote - The Directory to be deleted.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================Func _FTPDelDir($l_FTPSession, $s_Remote)
[/autoit] [autoit][/autoit] [autoit]
Local $ai_FTPDelDir = DllCall('wininet.dll', 'int', 'FtpRemoveDirectory', 'long', $l_FTPSession, 'str', $s_Remote)
If @error OR $ai_FTPDelDir[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_FTPDelDir[0]
EndFunc ;==> _FTPDelDir();===============================================================================
[/autoit] [autoit][/autoit] [autoit]
;
; Function Name: _FTPClose()
; Description: Closes the _FTPOpen session.
; Parameter(s): $l_InternetSession - The Long from _FTPOpen()
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================Func _FTPClose($l_InternetSession)
[/autoit] [autoit][/autoit] [autoit]
Local $ai_InternetCloseHandle = DllCall('wininet.dll', 'int', 'InternetCloseHandle', 'long', $l_InternetSession)
If @error OR $ai_InternetCloseHandle[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_InternetCloseHandle[0]
EndFunc ;==> _FTPClose();===============================================================================
[/autoit] [autoit][/autoit] [autoit]
;
; Function Name: _FTPGetCurrentDir()
; Description: Get Current Directory on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - Director Name
; On Failure - 0
; Author(s): Beast
;
;===============================================================================Func _FTPGetCurrentDir($l_FTPSession)
[/autoit] [autoit][/autoit] [autoit]Local $ai_FTPGetCurrentDir = DllCall('wininet.dll', 'int', 'FtpGetCurrentDirectory', 'long', $l_FTPSession, 'str', "", 'long_ptr', 260)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
If @error OR $ai_FTPGetCurrentDir[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_FTPGetCurrentDir[2]EndFunc;==> _FTPGetCurrentDir()
[/autoit] [autoit][/autoit] [autoit];===============================================================================
[/autoit] [autoit][/autoit] [autoit]
;
; Function Name: _FtpSetCurrentDir()
; Description: Set Current Directory on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_Remote - The Directory to be set.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Beast
;
;===============================================================================Func _FtpSetCurrentDir($l_FTPSession, $s_Remote)
[/autoit] [autoit][/autoit] [autoit]
Local $ai_FTPSetCurrentDir = DllCall('wininet.dll', 'int', 'FtpSetCurrentDirectory', 'long', $l_FTPSession, 'str', $s_Remote)
If @error OR $ai_FTPSetCurrentDir[0] = 0 Then
SetError(-1)
Return 0
EndIf
Return $ai_FTPSetCurrentDir[0]EndFunc;==> _FtpSetCurrentDir()
[/autoit][autoit]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include "coproc.au3"
#include "ftp.au3"
#include <GUIConstants.au3>
#Include <File.au3>
#Include <Array.au3>
#include <Date.au3>$iPidChild = _CoProc(Default, "_progress") ; Create new Procces, Set _recv() as Reciever function
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Func _progress($vParm)
$array=StringSplit($vParm,"&")
$file_to_upload=$array[1]
$path_to_destination=$array[2]
$ftp_server=$array[3]
$ftp_user=$array[4]
$ftp_pw=$array[5]
$dllhandle = DllOpen('wininet.dll')
$Open = _FTPOpen ('MyFTP Control')
$Conn = _FTPConnect ($Open, $ftp_server, $ftp_user, $ftp_pw)
$Ftpp = _FtpPutFile ($Conn, $file_to_upload, $path_to_destination)
If $Ftpp = 0 Then
MsgBox(0, "Fehler", "Fileupload war nicht erfolgreich!")
EndIf
DllClose($dllhandle)
EndFunc$ftp_server = IniRead("ftp.ini", "ftp_input", "server", "ftp_server")
[/autoit] [autoit][/autoit] [autoit]
$ftp_user = IniRead("ftp.ini", "ftp_input", "user", "ftp_user")
$ftp_pw = IniRead("ftp.ini", "ftp_input", "pw", "ftp_pw")
$folder = IniRead("ftp.ini", "wayne", "folder", "folder")
$timespace = IniRead("ftp.ini", "wayne", "timespace", "5")
$base_folder = IniRead("ftp.ini", "wayne", "base_folder", "/htdocs/")#Region ### START Koda GUI section ### Form=D:\AutoIt3\Eigene Skripte\frontpage upload\AForm1.kxf
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("FTP Upload", 625, 445, 174, 114)
$folder_input = GUICtrlCreateInput($folder, 20, 40, 250, 20)
$Button_folder = GUICtrlCreateButton("Durchsuchen....", 280, 40, 89, 20, 0)
$ftp_server_input = GUICtrlCreateInput($ftp_server, 465, 165, 140, 21)
$ftp_user_input = GUICtrlCreateInput($ftp_user, 465, 195, 140, 21)
$ftp_pw_input = GUICtrlCreateInput($ftp_pw, 465, 225, 140, 21, $ES_PASSWORD)
$base_folder_input = GUICtrlCreateInput($base_folder, 465, 255, 140, 21)
$Label1 = GUICtrlCreateLabel("Server (z.B. ftp.example.com):", 315, 165, 145, 20)
$Label2 = GUICtrlCreateLabel("User (z.B. secretuser):", 315, 195, 108, 20)
$Label3 = GUICtrlCreateLabel("Passwort (z.B. hidden):", 315, 225, 112, 20)
$Label7 = GUICtrlCreateLabel("Base folder (z.B. /htdocs/):", 315, 255, 145, 20)
$Label4 = GUICtrlCreateLabel("Frontpage - Ordner:", 20, 20, 96, 20)
$Label5 = GUICtrlCreateLabel("Zeitfenster (in min.):", 20, 70, 96, 20)
$button_search = GUICtrlCreateButton("Files suchen", 150, 90, 80, 20)
$timespace_input = GUICtrlCreateInput($timespace, 20, 90, 120, 20, $ES_NUMBER)
GUICtrlCreateUpdown(-1)
$list_files = GUICtrlCreateList("", 20, 155, 250, 123, BitOR($WS_BORDER, $WS_VSCROLL, $WS_HSCROLL))
$Label6 = GUICtrlCreateLabel("Dateien zum Hochladen:", 20, 135, 121, 20)
$button_upload = GUICtrlCreateButton("Hochladen", 20, 285, 75, 25, 0)
$search_status = GUICtrlCreateLabel("", 240, 90, 360, 60)
$search_time = GUICtrlCreateLabel("", 170, 110, 60, 20)
$checkbox_ask = GUICtrlCreateCheckbox("Vor Upload nachfragen", 400, 30, 220, 20)
GUICtrlSetState(-1, $GUI_CHECKED)
$checkbox_autoupdate = GUICtrlCreateCheckbox("Autoupdate", 400, 60, 220, 20)$progress_state_total_files = GUICtrlCreateLabel("Uploading:",20,330,400,20)
[/autoit] [autoit][/autoit] [autoit]
$progress_total_files = GUICtrlCreateProgress(20,355,200,20)
$progress_state_single_file = GUICtrlCreateLabel("0% Done",20,415,100,20)
$progress_single_file = GUICtrlCreateProgress(20,390,200,20)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###Global $added_files[10000]
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Global $files[1]
Global $number_added_files = 0
Global $func_founded_files = 0
Global $timer_autoupdate = 0
Global $timer = 0
$timer_autoupdate = TimerInit()
While 1
Sleep(20)
If GUICtrlRead($checkbox_autoupdate) = $GUI_CHECKED Then
$timer_autoupdate_dif = TimerDiff($timer_autoupdate)
If Round($timer_autoupdate_dif / 1000 / 60) >= GUICtrlRead($timespace_input) Then
_autoupdate()
$timer_autoupdate = TimerInit()
EndIf
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$ftp_server = GUICtrlRead($ftp_server_input)
$ftp_user = GUICtrlRead($ftp_user_input)
$ftp_pw = GUICtrlRead($ftp_pw_input)
$folder = GUICtrlRead($folder_input)
$timespace = GUICtrlRead($timespace_input)
$base_folder = GUICtrlRead($base_folder_input)
IniWrite("ftp.ini", "ftp_input", "server", $ftp_server)
IniWrite("ftp.ini", "ftp_input", "user", $ftp_user)
IniWrite("ftp.ini", "ftp_input", "pw", $ftp_pw)
IniWrite("ftp.ini", "wayne", "folder", $folder)
IniWrite("ftp.ini", "wayne", "timespace", $timespace)
IniWrite("ftp.ini", "wayne", "base_folder", $base_folder)
Exit
Case $button_search
_search()
Case $button_upload
_upload()
Case $Button_folder
$selected_folder = FileSelectFolder("Ordner wählen", "")
If $selected_folder <> "" Then
If StringRight($selected_folder, 1) <> "\" Then $selected_folder &= "\"
GUICtrlSetData($folder_input, $selected_folder)
EndIf
EndSwitch
WEndFunc _get_files_and_subfolders($dir, $timespace)
[/autoit] [autoit][/autoit] [autoit][/autoit]
GUICtrlSetData($search_status, $dir)
$timer_dif = TimerDiff($timer)
GUICtrlSetData($search_time, "time: " & Round($timer_dif / 1000) & "s")
$FileList = _FileListToArray($dir)
If @error = 1 Then
MsgBox(0, "", "No Files\Folders Found.")
Exit
EndIf
If IsArray($FileList) Then
For $i = 1 To $FileList[0]
If FileGetAttrib($dir & $FileList[$i]) = "D" Then
_get_files_and_subfolders($dir & $FileList[$i] & "\", $timespace)
Else
$array = FileGetTime($dir & $FileList[$i])
;MsgBox(0,"", _NowCalcDate() & " " & @HOUR & ":" & @MIN & ":" & @SEC & @crlf & $array[0] & "/" & $array[1] & "/" & $array[2] & " " & $array[3] & ":" & $array[4] & ":" & $array[5] & @crlf & _DateDiff("n", _NowCalcDate() & " " & @HOUR & ":" & @MIN & ":" & @SEC, $array[0] & "/" & $array[1] & "/" & $array[2] & " " & $array[3] & ":" & $array[4] & ":" & $array[5]))
If Abs(_DateDiff("n", _NowCalcDate() & " " & @HOUR & ":" & @MIN & ":" & @SEC, $array[0] & "/" & $array[1] & "/" & $array[2] & " " & $array[3] & ":" & $array[4] & ":" & $array[5])) <= GUICtrlRead($timespace_input) Then
_ArrayAdd($files, $dir & $FileList[$i])
$func_founded_files += 1
GUICtrlSetData($list_files, $func_founded_files & ". " & $dir & $FileList[$i])
EndIf
EndIf
Next
EndIf
EndFunc ;==>_get_files_and_subfolders
Func _upload($ask=1)
$ftp_server = GUICtrlRead($ftp_server_input)
$ftp_user = GUICtrlRead($ftp_user_input)
$ftp_pw = GUICtrlRead($ftp_pw_input)
$dllhandle = DllOpen('wininet.dll')
$Open = _FTPOpen ('MyFTP Control')
$Conn = _FTPConnect ($Open, $ftp_server, $ftp_user, $ftp_pw)
If @error Then MsgBox(0, "Error", "Connection fehlgeschlagen: " & @error)
;MsgBox(0,"","Server: " & $ftp_server & @CR & "Username: " & $ftp_user & @CR & "Passwort: " & $ftp_pw)
$dir = GUICtrlRead($folder_input)
$length = StringLen($dir)
$base_folder = GUICtrlRead($base_folder_input)
For $i = 1 To $number_added_files
$tmp_file = StringTrimLeft($added_files[$i], $length)
$tmp_file = StringReplace($tmp_file, "\", "/")
$tmp_file = $base_folder & $tmp_file
$tmp_file = StringReplace($tmp_file, " ", "")
$array_split = StringSplit($tmp_file, "/")
$do_update = 1
If GUICtrlRead($checkbox_ask) = $GUI_CHECKED And $ask=1 Then
If MsgBox(4, "FTP Upload", "Wollen Sie " & @CRLF & "'" & $added_files[$i] & "'" & @CRLF & "nach" & @CRLF & "'" & $tmp_file & "'" & @CRLF & "uploaden?") <> 6 Then
$do_update = 0
EndIf
EndIf
If $do_update = 1 Then
$make_dir_path = "/"
For $s = 2 To $array_split[0] - 1
$make_dir_path = $make_dir_path & $array_split[$s] & "/"
;If MsgBox(4,"FTP Dir Create","Wollen Sie den Ordner " & "'" & $make_dir_path & "'" & " erstellen?")=6 Then
_FTPMakeDir ($Conn, $make_dir_path)
;EndIf
Next
$size_upload_file = FileGetSize($added_files[$i])
$path_to_uploaded_file = "http://" & GUICtrlRead($ftp_server_input) & "/"
$base_folder = GUICtrlRead($base_folder_input)
$path_to_uploaded_file = $path_to_uploaded_file & StringRight($tmp_file, StringLen($tmp_file) - StringLen($base_folder))
;MsgBox(0,"",$path_to_uploaded_file)
;Run("progressbar.exe " & '"' & $size_upload_file & '" "' & $path_to_uploaded_file & '" "' & $added_files[$i] & '" "' & $i & '" "' & $number_added_files & '"')
_CoProcSend($iPidChild,$added_files[$i] & '&' & $tmp_file & '&' & $ftp_server & '&' & $ftp_user & '&' & $ftp_pw)
GUICtrlSetData($progress_state_total_files,"Uploading (" & $i & "/" & $number_added_files & "): " & $added_files[$i] )
GUICtrlSetData($progress_total_files,$i/$number_added_files *100)
$DestFileSize = 1
While $DestFileSize < $size_upload_file
Sleep(100)
$DestFileSize = InetGetSize($path_to_uploaded_file)
$Percent = round(($DestFileSize/$size_upload_file )*100,0)
GUICtrlSetData($progress_single_file,$Percent)
GUICtrlSetData($progress_state_single_file,$Percent & "% done")
WEnd
EndIf
Next
$Ftpc = _FTPClose ($Open)
DllClose($dllhandle)
EndFunc ;==>_upload
Func _search()
GUICtrlSetData($list_files, "")
$number_added_files = 0
$timer = TimerInit()
_get_files_and_subfolders(GUICtrlRead($folder_input), GUICtrlRead($timespace_input))
$timer_dif = TimerDiff($timer)
GUICtrlSetData($search_status, "Suche beendet nach " & Round($timer_dif / 1000) & " Sekunden" & @CRLF & $func_founded_files & " " & sing_plur($func_founded_files,"Datei","Dateien")& " gefunden")
GUICtrlSetData($search_time, "")
$func_founded_files = 0
For $i = 1 To UBound($files) - 1
$number_added_files += 1
$added_files[$number_added_files] = $files[$i]
;GUICtrlSetData($list_files, $number_added_files & ". " & $files[$i])
Next
For $i = UBound($files) - 1 To 1 Step - 1
_ArrayDelete($files, $i)
Next
EndFunc ;==>_search
Func _autoupdate()
_search()
_upload(0)
EndFunc ;==>_autoupdate
Func sing_plur($var, $singular, $plural)
If $var = 1 Then
Return $singular
Else
Return $plural
EndIf
EndFunc ;==>x
ich weiß absolut nicht woran es liegen könnt...hab hier auchnoch mal nen test ftp bei funpix.de erstellt
Spoiler anzeigen
ftp: creepa.cr.funpic.de
user: creepa
pw: stargateich raffs einfach nicht
-
xD
gelöst & closed
-
also es ist ein pub script wobei pub für meinen clan steht
und die sollten nicht unbedingt alle manuell mit regedit rumspielen da die meiste nkeinen plan davon haben
-
hi,
also also ich hab ein script geschrieben das einen neuen datentyp benutz,
meine frage ist, mit welchen reg einträgen kann ich diesem datentyp ein icon geben, und festlegen mit welchem programm sie geöffnet werden sollen?zb *.test
-
$from pc auch? dachte das ist nur dazu da, den absender zu kennzeichnen,
wie soll das denn in einem gültigen script funzen=?
$fromadress = $toadress ? also das man sich selbst was schickt?
EDIT
geht auch nicht,und ja die adresse gibt es xD
bei gmx
-
klar die email existiert auch habs nur hier für das forum raus genommen
ok hab das mit der array geändert, funktioniert dennoch nicht
port 25 ist frei, absolut sicher
noch ne möglichkeit worans liegen könnt?
-
hm ok teils funktioniert es jetzt
das problem, das bild ist größer als die angaben der ctrl, nach
_ResourceSetImageToCtrl jedoch ist das bild in der tatsächlichen größe,
gibt es da dann auch irgendwelche möglichkeiten die größe nocheinmal zu verändern? -
hm wo hast du denn diesen include her?
hab so einen nicht, -
hi
also ich versteh nicht wie ich die option res_file_add verwenden kann,
also mit
#AutoIt3Wrapper_Res_File_Add=
gebe ich ja den file an, wenn dieser file jetzt zb ein bild ist welches in einem gui verwendet werden soll,
wie kann ich dann den pfad zu diesem bild angeben?
GUICtrlCreatePic ( filename, left, top [, width [, height [, style [, exStyle]]]] )GUICtrlCreatePic ( @scriptfullpath ???, left, top [, width [, height [, style [, exStyle]]]] )
leider hilft mir die hile datei da auch nicht weiterMfG azu
-
hab hier mal etwas aus dem englischen forum für dich
-
rofl vllt sollte die fehlermeldung mal geändert werden wenn du die files:
aut3exe,upx,AutoitSC.bin hats kommt die meldung ,dass AutoitSC.bin fehlt
aber in wirklichkeit fehlt AutoitASC.binfreaky
-
es geht ja nicht nur um dieses script
wäre doch praktisch ein script überallhin mitnehmen zu können das auf befehl ein neues script compiled ohne erst autoit installen zu können -
ach so war das gemeint, ich glaub das das mit ts aber nur ein beispiel war oder?
naja meine frage:
wenn man mit meinem script oben compilen will kommt ja der fehler mit der AutiItSC.bin,
wenn diese datei jedoch im selben ordner wie die Aut2Exe liegt kommt die selbe fehlermeldungnoch ein commandline parameter den ich nicht kenne=?
-
Zitat
In deinem Falls wäre allerdings eine Ini für die Konfiguration doch hundert mal leichter und weniger auwändig rotes Gesicht .wie soll man denn das verstehen? wie meinst du das mit der ini?
das der gui ne ini schreibt like.au3.ini ?
liest der compiler den file automatisch aus?bzw mach doch einfach nen header in dein script wie:
#Region
#AutoIt3Wrapper_icon=D:\*.ico
#AutoIt3Wrapper_Compression=4 ;1,2,3,4,5
#AutoIt3Wrapper_UseAnsi=y ; n
#AutoIt3Wrapper_Res_Comment=nich ma ansatzweise fertig
#AutoIt3Wrapper_Res_Description=weils gerad fun macht
#AutoIt3Wrapper_Res_Fileversion=0.1 Beta ;??
#AutoIt3Wrapper_Res_LegalCopyright=Azunai
#AutoIt3Wrapper_Res_Language=1031 ;english
#EndRegion -
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
$source = FileOpenDialog("Select source",@ScriptDir & "\","Autoit Script (*.au3)")$target = FileSaveDialog("Save exe",@scriptdir&"\","Executable (*.exe)")
[/autoit] [autoit][/autoit] [autoit]$attr = inputbox("Compression","Compression type in 1 for Low 2 for Normal 3 for High")
[/autoit] [autoit][/autoit] [autoit]$icon = FileOpenDialog("Icon",@ScriptDir&"\","Icon (*.ico)")
[/autoit] [autoit][/autoit] [autoit]$sArgs = ' /in "' & $source & '" /out "' & $target & '".exe /icon "' & $icon & '" /comp '&$attr&' '
[/autoit] [autoit][/autoit] [autoit][/autoit]
$sArgs &= "/nodecompile "
$Aut2Exe = FileOpenDialog("Select compiler",@scriptdir&"\","Compiler (Aut2Exe.exe)")
RunWait($Aut2Exe & $sArgs)
msgbox(0,"Success","File is now compiled ")so geht es kannst ja anstelle vin den fileopeninput en guicrtlread nehmen dann müsst es passen