Beiträge von Stevenx

  • YouTube Clip | Bitte um Meinung

    Das es so wenig ist, liegt daran, dass ein bekannter Reviewer (59.389 Abos) das Theme sich anschauen wird und das Video wird dann verlinkt. Die Repo geht nicht? Muss mir mal anschauen, bei mir gehts… Überschrift änder ich dann :D Ja, hab mir Mühe gemacht und versteh jz ehrlich nicht, was man jetzt da noch groß mehr beschreiben will ^^ Aber danke für die Kritik! Und das Problem mit der Repo guck ich mir an.

    Cheers

  • Aut2EXE.exe Hilfe

    Hey,

    ich find grad keine Lösung, um ein Script zu kompilieren. Wenn ich das jetzt ausführe, taucht nur der Parameter Fehler von Aut2EXE.exe auf.

    €DIT: Script erneurt, geht jz

    [autoit]

    $Out = FileSaveDialog("ScreenWatch - save EXE","","EXE(*.exe)",Default,".exe")
    $Icon = FileOpenDialog("ScreenWatch - Open Icon",@ScriptDir&"/icon","Icon(*.ico)")
    ShellExecute("Aut2exe.exe",' /in "'&@ScriptDir&'\cache.au3" /out "'&$Out&'" /icon "'&$Icon&'"');Auf Leerzeichen vor /in achten!

    [/autoit][autoit][/autoit][autoit][/autoit]

    Ich hoffe, ihr könnt mir helfen :D

    Cheers

  • zweite Spalte von ListView füllen

    So müsste es gehn:

    [autoit]

    GUICtrlCreateListViewItem("|Test",$hWnd)

    [/autoit]

    Cheers

    //EDIT: Bei mir gehts

    [autoit]

    #include <GUIConstantsEx.au3>
    #include <ListViewConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 615, 437, 192, 124)
    $ListView1 = GUICtrlCreateListView("Ha|Ha", 16, 32, 577, 377)
    GUISetState(@SW_SHOW)
    GUICtrlCreateListViewItem("|Test",$ListView1)
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

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

    [/autoit][autoit][/autoit][autoit]

    EndSwitch
    WEnd

    [/autoit]

  • MyPic - Bilder Upload

    Kannst du gerne machen :D Hab nix drauf außer das, da ich mir einen Webspace gekauft habe ;) Meine Daten gebe ich nirgends hin. Das mit FTP ist nur eine Übergangslösung, bis ich den Dreh mit FTP raus habe. Eine eigene online Uploadseite gibt es schon: limesoft.square7ch/ipic/user/upload.php

    Cheers

  • MyPic - Bilder Upload

    Hey :D

    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
    Code
    [BENUTZERNAME]
FTP_User=FTP BENUTZERNAME
FTP_Server=FTP SERVER
FTP_Path=BILDER PFAD
FTP_Site=SEITE FÜR DEN LINK
    Spoiler anzeigen
    [autoit]

    #cs

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ==========================
    MyPic Client
    ==========================
    ©Stefan Blagojevic
    Version: 1.2

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    #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

    [/autoit] [autoit][/autoit] [autoit]

    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

    [/autoit] [autoit][/autoit] [autoit]

    ;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 ###

    [/autoit] [autoit][/autoit] [autoit]

    ; 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

    [/autoit] [autoit][/autoit] [autoit]

    ; 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

    [/autoit] [autoit][/autoit] [autoit]

    ; RANDOM TEXT FUNCTION
    Func _RandomText($N)
    ;$n is the lenght of string.
    If $N < 1 Then Return -1
    Local $COUNTER, $ALPHA, $RESULT

    [/autoit] [autoit][/autoit] [autoit]

    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

    [/autoit] [autoit][/autoit] [autoit]

    ; 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 ###

    [/autoit] [autoit][/autoit] [autoit]

    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

    [/autoit]

  • Einfaches News Skript

    Hey,

    da ich für meine Programme immer ein einfaches Skript zum Herausfinden von neuen Versionen benutze, möchte ich es euch nicht vorenthalten :D

    Abrufen von Version:

    [autoit]

    InetGet("http://www.limesoft-solutions.com/HTRSimple_News.ini","HTRSimple_News.ini",1) ;Hier eure Updates INI
    If IniRead( "HTRSimple_News.ini", "News", "Message", "No") <> IniRead("HTRSettings.ini", "News", "Shown", "Yes") Then
    _News() ;Die GUI
    IniWrite("HTRSettings.ini", "News", "Shown", IniRead("HTRSimple_News.ini", "News", "Message", "Yes"))
    EndIf

    [/autoit]

    Die GUI:

    [autoit]

    Func _News()
    $News_GUI = GUICreate("Message", 609, 136, 194, 172)
    $Label1 = GUICtrlCreateLabel(IniRead("HTRSimple_News.ini", "News", "Message", "ERROR"), 16, 16, 572, 49)
    $OK_BUTTON = GUICtrlCreateButton("OK", 16, 88, 75, 25)
    $SHOW_BUTTON = GUICtrlCreateButton("Show", 104, 88, 75, 25)
    GUISetState(@SW_SHOW)

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    GUIDelete($News_GUI)
    ExitLoop
    Case $OK_BUTTON
    GUIDelete($News_GUI) ;Schließt die GUI
    ExitLoop
    Case $SHOW_BUTTON
    $URL = IniRead( "HTRSimple_News.ini", "News", "URL", "http://limesoft-solutions.com") ;Zeigt die Website anschließend an
    ShellExecute( $URL)
    GUIDelete($News_GUI)
    ExitLoop
    EndSwitch
    WEnd

    [/autoit][autoit][/autoit][autoit]

    EndFunc

    [/autoit]

    Die INI sollte so ausschauen:

    Code
    [News]
Message=Text
URL=Website

    Natürlich könnte man @error Handler und so einbauen, aber so wird Platz eingespart ^^

    Würde mich über Feedback und Kritik freuen,

    StevenX