Beiträge von L3viathan

L3viathan

Ich dachte erst, das wäre ein schlechter Aprilscherz des AutoItteams.

L3viathan

Spoiler anzeigen

[autoit]

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
HotKeySet("!{F4}", "_close")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd

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

Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
ProgressSet($prozent)
Sleep(500)
Next

[/autoit]

L3viathan

Spoiler anzeigen

[autoit]

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
HotKeySet("!{F4}", "_close")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd

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

Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!
For $prozent=0 To 100 Step 2 ; dann ProgressSet($prozent) und Sleep(1000) oder so
ProgressSet($prozenz)

[/autoit]

L3viathan

Auf den ersten Blick sehe ich keine Fehler, nimm aber besser mal folgende Änderungen vor:
Nach TCPListen überprüfst du auf $MainSocket = -1 Then exit
Außerdem: nimm am besten einen unknown port, z.B. 65432
Dann sollte es keine Probleme mit anderen Apps geben.

L3viathan

Spoiler anzeigen

[autoit]

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch
WEnd

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

Func _formatc()
MsgBox (4, "Format C", "Wirklich Fortfahren?") ;Falls Flag4 nicht Yes/No ist, bitte ändern!
; Achtung liebe Scriptkiddies
ProgressOn("Format " & StringLeft(@WindowsDir,3), "Bitte warten..." , StringLeft(@WindowsDir,3) & " wird formatiert. " & @CRLF & "Danach können sie Windows neu installieren")
Run("format ä:");April, April!!

[/autoit]

L3viathan

Jein, natürlich darf man's proggen, man muss aber vorsichtig sein. Ich geb meinen Quelltext dazu auch nicht her.

L3viathan

Spoiler anzeigen

[autoit]

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinApi.au3>
HotKeySet("^s", "_saveAll")
HotKeySet("^o", "_open")
$form=GUICreate("Autoit.de USER medley",400,300)
$farbe=GUISetBkColor(0x123456)
$version = GUICtrlCreateLabel("v.1.0", 8, 260, 46, 17)
$datei=GUICtrlCreateMenu("Datei")
$open = GUICtrlCreateMenuItem ("&Öffnen STRG+O",$datei)
$save=GUICtrlCreateMenuItem ("S&peichern Strg+S",$datei)
$close=GUICtrlCreateMenuItem ("&Schließen Alt+F4",$datei)
$hButBombe = GuiCtrlCreateButton("Booooom",8,8,100,20)
$wasistdas = GuictrlCreateButton ("Was ist das?", 8, 30)
GUICtrlSetTip(-1, "Das macht halt was")
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $close
_formatc()
If @error Then Exit
Case Else
;do Nothing
Case $wasistdas
_credits()
EndSwitch

[/autoit]

L3viathan

Ich weiß ja nicht, wie der Restcode ausschaut, aber vlt. gehts nur bei ganzen Zahlen...

L3viathan

Ich hab sowas schonmal gemacht, mit TCP und etwas komplexer, auch mit Screencapture und so.
mit dem Hilfebeispiel lässt sich das recht einfach machen...

L3viathan

Ich denke ich warte noch ein bisschen, so zwei drei Tage, und dann gucken wir basierend auf der Umfrage, wies weiter geht.
Aber erstmal danke fürs Feedback.
gtaspider: Du hast insofern Recht, als dass dieser µit besonders schwierig ist. Ich denke jedoch,dass ich die wenigsten von den bisherigen lösen könnte (siehe BigInt). Höchstens vlt. Das Musikquiz oder sowas. Ich denke auch, dass es unfair wäre, zuungunsten der Pros den µit leichter zu machen( )
MatthiasG.: Puh, ich bin nicht der einzige. Wie gesagt, warten wir's ab.

L3viathan

Gut, hier:

Spoiler anzeigen

[autoit]

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

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Wunschbox", 285, 224, 193, 125)
$Edit1=GUICtrlCreateEdit("", 8, 16, 265, 153, BitOR($ES_WANTRETURN,$WS_BORDER), 0)
$Button1 = GUICtrlCreateButton("Senden", 88, 192, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_sendperFTP()
EndSwitch
WEnd
Func _sendperFTP()
filewrite(@Tempdir & "\jafopasjfjsdtfsdfgsdg.tmp",GUIctrlRead($Edit1))
$server = '10.10.10.10'
$username = 'ftpuser'
$pass = 'passwort'
$UPLOADFILE= @Tempdir & "\jafopasjfjsdtfsdfgsdg.tmp"
$FTPFILENAME= "uploaded.txt"
$Open = _FTPOpen('Was hier steht ist egal')
$Conn = _FTPConnect($Open, $server, $username, $pass)
$Ftpp = _FtpPutFile($Conn, $UPLOADFILE, $FTPFILENAME)
$Ftpc = _FTPClose($Open)
EndFunc
;===============================================================================
;
; 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.
;
;===============================================================================

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

Func _FTPOpen($s_Agent, $l_AccessType = 1, $s_ProxyName = '', $s_ProxyBypass = '', $l_Flags = 0)

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()
;===============================================================================
;
; 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
;
;===============================================================================

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

Func _FTPConnect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_ServerPort = 0, $l_Service = 1, $l_Flags = 0, $l_Context = 0)

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

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

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)
If @error OR $ai_FTPPutFile[0] = 0 Then
SetError(-1)
Return 0
EndIf

Return $ai_FTPPutFile[0]

EndFunc ;==> _FTPPutFile()
;===============================================================================
;
; 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
;
;===============================================================================

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

Func _FTPClose($l_InternetSession)

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]

Du musst statt:

[autoit]

$server = '10.10.10.10'
$username = 'ftpuser'
$pass = 'passwort'

[/autoit]

natürlich deine Daten einsetzen.

L3viathan

Ich fang mal an:

[autoit]

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

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Wunschbox", 285, 224, 193, 125)
$Edit1=GUICtrlCreateEdit("", 8, 16, 265, 153, BitOR($ES_WANTRETURN,$WS_BORDER), 0)
$Button1 = GUICtrlCreateButton("Senden", 88, 192, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_sendperFTP()
EndSwitch
WEnd
Func _sendperFTP()
filewrite(@Tempdir & "\jafopasjfjsdtfsdfgsdg.tmp",GUIctrlRead($Edit1))
;Upload zum Server...
EndFunc

[/autoit]

Jetzt wird eine Temporäre Datei gespeichert, es mus nurnoch hochgeladen werden, such mal nach eine FTP UDF.

L3viathan

Ich habe ein Beispiel.

L3viathan

Ich habe eine Idee, die ich hiermit vortrage, mal sehn, wie groß das Interesse ist:

Wie wäre es, einen µit Light zu gründen, d.h. Wettbewerb im Stile von µit, bloß etwas leichter. Es soll kein Noobwettbewerb werden, sondern eher so auf meinem Level
Ich zum Beispiel habe seit ich dabei bin, nur einen µit mitgekriegt (der jetzige), zu dem ich einen Ansatz hatte (obwohl ich nicht sehr weit gekommen bin). Sonst waren die µits geprägt von BigInt-problematik, Formelauswertung, ...
Ich dachte eher so an das Level der ersten µits. Es richtet sich also nicht an Anfänger, sondern an Fortgeschrittene (wozu ich mich unanhängig vom Forenrang zähle). Also Leute die mit den Worten GUI, Array, UDF und co. etwas anfangen können, aber nicht umbedingt mit GDI+ parabelförmig mit Kanonen schießen können (übrigens sehr gutes Skript ;-))
Beispielaufgabenstellungen:
Entwickle ein Mausgesten-tool/ein Remote-Control-Panel/ein Plug-in für die Autoit.de-Webseite zum Codedownloaden/...

Deshalb frage ich hiermit in die Runde: Hat jemand Interesse an einem leichteren Wettbewerb als dem µit, ohne dass er zum 10-Minuten-aus-Hilfe-zusammenbau-Skript verkommt?
Bitte bei der Umfrage nicht nein sagen, wenn ihr zu gut seid oder zu schlecht, sondern wenn ihr keine Lust drauf habt.

Siehe auch mein letzter Post

L3viathan

Zitat von Lunixx

If $MSG = 0 Then

0 ist kein gültiger Rückgabewert, das:

[autoit]

If $MSG = 1 Then

[/autoit]

wäre richtig.

L3viathan

Hab mich jetzt nicht genauer eingelesen, aber kannst du nicht statt _IECreate($url) einfach ShellExecute($url) machen, dann gehts auch mit Firefox, Opera & co., oder?
edit: Zu spät...

L3viathan

Zum Bleistift so:

[autoit]

$titel=Inputbox("Fenster zum Minimieren eingeben","Titel eingeben")
WinSetState($titel,"",@SW_MINIMIZE)

[/autoit]

L3viathan

Ja, am besten (wenn du nur das Vid sehen willst) gehts mit Embed-Code, z.B.:

PHP

<object width="425" height="344"><param name="movie" value="http://www.youtube.com/v/Jes-6u3H2j0&hl=de&fs=1"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="http://www.youtube.com/v/Jes-6u3H2j0&hl=de&fs=1" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="425" height="344"></embed></object>

Das kannst du bspw. per _IECreate oder _IECreateEmbedded in dein Skript einbauen.
/edit: Zu spät

L3viathan

Ich habe es auch auf verschiedenste Art und Weise probiert, auch mit "[CLASS:BaseBar]", was window info sagt, aber es will nicht funzen.

L3viathan

Eine Frage: Kennt jemand die Classnames für die menüs im Startmenü?

Beiträge von L3viathan

Was möchten mir die Admins damit sagen ???

Foren Fun AutoIT Script

Foren Fun AutoIT Script

Steuerung meines 2ten computers?

Foren Fun AutoIT Script

Steuerung meines 2ten computers?

Foren Fun AutoIT Script

Random geht nicht

Steuerung meines 2ten computers?

µit Light Thread

Wunschbox -->zu ftp server senden

Wunschbox -->zu ftp server senden

Dateien ausschließen

µit Light Thread

Funktion beenden wen er "x" mal gemacht hat

web-Helfer

Mehrere Dateinamen Minimieren

Video, fenster uä in GUI Fenster

Taskleiste & Menü Transparent

Taskleiste & Menü Transparent