Hey
Ich möchte euch meinen Bilder Upload Clienten vorstellen:
Ihr müsst eine eigene INI machen und die dann ins Internet stellen (Zeile 31). Die INI schaut so aus:
Spoiler anzeigen
Spoiler anzeigen
#cs
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]==========================
MyPic Client
==========================
©Stefan Blagojevic
Version: 1.2
#ce
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <FTPEx.au3>
#include <array.au3>
#include <GUICtrlPic.au3>
; INITIALISING USER
Global $FTP_User, $FTP_Server, $FTP_Pass, $FTP_Path
$Settings_file = InetGet( "http://limesoft-solutions.com/MyPic/settings_accounts.ini", @TempDir & '/MyPic.seff',1)
$user_name = InputBox( "MyPic", "Geben Sie Ihren Benutzernamen an")
If IniRead(@TempDir & '/MyPic.seff', $user_name, "FTP_User", "error") = "error" Then
MsgBox( 16, "ERROR", "Settingsfile corrupt our username wrong")
Exit
Else
$FTP_User = IniRead(@TempDir & '/MyPic.seff', $user_name, "FTP_User", "ERROR")
$FTP_Server = IniRead(@TempDir & '/MyPic.seff', $user_name, "FTP_Server", "ERROR")
$FTP_Pass = InputBox( "MyPic", "Passwort bitte eingeben")
;~ $FTP_Pass = IniRead(@TempDir & '/MyPic.seff', $user_name, "FTP_Pass", "ERROR")
$FTP_Path = IniRead(@TempDir & '/MyPic.seff', $user_name, "FTP_Path", "ERROR")
$FTP_Site = IniRead(@TempDir & '/MyPic.seff', $user_name, "FTP_Site", "ERROR")
FileDelete( @TempDir & '/MyPic.seff')
EndIf
;IF YOU WANT: SHOWING INFORMATIONS
;MsgBox( 0, "", "Server: " & $FTP_Server & " ::User: " &$FTP_User &" ::Pass: "& $FTP_Pass)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; UPLOAD GUI
_uploadgui()
Func _uploadgui()
Global $Pic, $FTP, $User, $Actual, $Files_List, $FTP_Conn
#Region ### START Koda GUI section ### Form=D:\Administrator\Documents\StevenX Media\MyPic\Drag_drop_Gui.kxf
$Form1 = GUICreate("MyPic 1.2", 697, 350, 192, 124,-1)
$Label1 = GUICtrlCreateLabel("MyPic", 290, 80, 168, 50)
GUICtrlSetFont(-1, 30, 500, 0, "Arial")
$Select_Pic = GUICtrlCreateButton("Auswählen", 272, 192, 147, 33)
GUISetOnEvent($GUI_EVENT_DROPPED, "_OnGuiDrop")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
; PING GOOGLE
If Ping("google.com") = 0 Then
MsgBox(16,"ERROR", "Could not ping Google. Program will now exit")
Exit
EndIf
ProgressOn( "Connect", "Connecting to the Server", "Creating connection...")
$FTP = _FTP_Open( "iPic_FTP")
If $FTP = 0 Then
MsgBox(16, "ERROR", "Could not connect to my FTP Server (1). Program will now exit.")
Exit
EndIf
ProgressSet( 50, "Created connection. Will now connect...")
$FTP_Conn = _FTP_Connect( $FTP, $FTP_Server, $FTP_User, $FTP_Pass)
ProgressSet( 100, "Connected!")
Sleep(1000)
ProgressOff()
If $FTP_Conn = 0 Then
MsgBox(16, "ERROR", "Could not connect to my FTP Server (2). Program will now exit.")
Exit
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$Ftpc = _FTP_Close($FTP)
FileDelete(@TempDir & '/MyPic.seff')
Exit
Case $Select_Pic
;~ $Pic = FileOpenDialog( "Wähle aus", "", "Bilder(*.jpg;*.png;*.gif;*.bmp)")
;~ ShellExecute( "http://limesoft.square7.ch/ipic/user/upload-client.php?variable="&$Pic)
_Upload()
_Gui2()
EndSwitch
WEnd
EndFunc
Func _OnGuiDrop()
$Pic = @GUI_DragFile
_Upload()
EndFunc
; NOW: UPLOAD
Func _Upload()
If $Pic <> "" Then
$sFilename = StringRegExpReplace($Pic, '.+\\(.+)', '$1')
$sFilename = _RandomText(11) & StringRight( $sFilename, 4)
$Upload = _FTP_ProgressUpload( $FTP_Conn,$Pic, $FTP_Path & $sFilename)
_Result($FTP_Site & $FTP_Path & $sFilename)
EndIf
EndFunc
; RANDOM TEXT FUNCTION
Func _RandomText($N)
;$n is the lenght of string.
If $N < 1 Then Return -1
Local $COUNTER, $ALPHA, $RESULT
For $COUNTER = 1 To $N
If Random() < 0.5 Then
$ALPHA = Chr(Random(Asc("A"), Asc("Z") + 1))
Else
$ALPHA = Chr(Random(Asc("a"), Asc("z") + 1))
EndIf
$RESULT = $RESULT & $ALPHA
Next
Return $RESULT
EndFunc
; RESULT: SHOWING PICTURE AND LINKS / CODES
Func _Result($Pic_URL)
$Result_GUI = GUICreate("MyPic", 625, 380, 192, 124)
$Pic1 = _GUICtrlPic_Create($Pic, 24, 24, 577, 265)
$Ok = GUICtrlCreateButton( "OK", 24,335,30)
$Paste = GUICtrlCreateButton( "In Zwischenablage kopieren", 64,335,300)
$Code_Paste = GUICtrlCreateButton( "Für Forum in Zwischenablage kopieren", 374,335)
$Input1 = GUICtrlCreateInput($Pic_URL, 24, 304, 577, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE)
ExitLoop
Case $Ok
GUIDelete(@SW_HIDE)
ExitLoop
Case $Paste
If ClipPut($Pic_URL) = 1 Then
MsgBox(64, "MyPic", "In Zwischenablage kopiert: "&$Pic_URL)
Else
MsgBox(16, "MyPic", "Konnte nicht in Zwischenablage kopieren: "&$Pic_URL)
EndIf
Case $Code_Paste
If ClipPut("") = 1 Then
MsgBox(64, "MyPic", "In Zwischenablage kopiert: "&"")
Else
MsgBox(16, "MyPic", "Konnte nicht in Zwischenablage kopieren: "&"")
EndIf
EndSwitch
WEnd
EndFunc