Beiträge von L3viathan

L3viathan

statt

[autoit]

Case $UploadButton
Exit

[/autoit]

schreibst du:

das hier

[autoit]

$Form2 = GUICreate("Musik Uploader", 301, 89, 185, 188)
$Input1 = GUICtrlCreateInput("", 40, 32, 121, 21)
$Button1 = GUICtrlCreateButton("Durchsuchen", 176, 32, 75, 25, 0)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$sFile=FileOpenDialog("Datei öffnen", @ScriptDir, 'Alle Dateien (*.*)')
Exit
EndSwitch
WEnd

[/autoit]

, oder, was ich für besser halte:

[autoit]

$sFile=FileOpenDialog("Datei öffnen", @ScriptDir, 'Alle Dateien (*.*)')

[/autoit]

Dann gibt es gar keine zweite GUI...

L3viathan

Ja.
Er will damit sagen, dass es, besonders wenn das Programm mal größer wird, besser ist, die Daten außerhalb des Skripts zu lagern, anders als bei dir, Altaïr.

L3viathan

Dann zeig doch mal dein Skript

L3viathan

Das mindeste ist ja wohl nicht mit IDs sondern mit Variablen zu arbeiten.
Man muss ja nicht streng strukturiert proggen, aber wenn man eine Supportanfrage an ein Forum stellt, sollte man vielleicht daran denken, dass hier keiner dafür bezahlt wird, support zu leisten.
Bitte bedenke das.

L3viathan

wenn du ne fritzbox hast:
http://fritz.box
Internet --> Portfreigabe

L3viathan

Aha.

L3viathan

Probier mal so (vorher ini löschen):

Spoiler anzeigen

[autoit]

If iniRead (@ScriptDir & "\" & "config.ini" , "config", "calculator", "") = "" Then
$calculator = FileOpenDialog ( "calculator auswählen", "C:/", ".exe (*.exe)" ,"" , "calculator")
iniWrite (@ScriptDir & "\" & "config.ini" , "config", "calculator", $calculator)
else
$calculator = IniRead (@ScriptDir & "\" & "config.ini" , "Config", "calculator", "")
EndIf

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

If iniRead (@ScriptDir & "\" & "config.ini" , "config", "Sniffer", "") = "" Then
$Sniffer = FileOpenDialog ( "Sniffer auswählen", "C:/", ".exe (*.exe)" ,"" , "Sniffer")
iniWrite (@ScriptDir & "\" & "config.ini" , "config", "Sniffer", $Sniffer)
else
$Sniffer = IniRead (@ScriptDir & "\" & "config.ini" , "Config", "Sniffer", "")
EndIf

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

;Sniffer starten
If not WinExists( "Sniffer") Then
Run($Sniffer)
WinWait("login")
WinActivate("login")
Sleep(250)
Send("{Enter}")
Sleep(500)
WinWait("Sniffer")
Sleep(1000)
EndIf

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

;calculator starten
Send("{LWINDOWN}")
Send("{r}")
Send("{LWINUP}")
Sleep(200)
Send($calculator)
Sleep(500)
Send("{Enter}")
Exit

[/autoit]

L3viathan

[autoit]

Run("explorer C:\Programme")

[/autoit]

Übrigens öffnest du ne MP3 nicht per Run, sondern ShellExecute.

L3viathan

is so, wenn du dir mal die Avis von "Datei kopieren" & "...verschieben" ansiehst, siehst du rosa BG, nur im Explorer halt nicht...

L3viathan

Zitat von Greenhorn

Dafür brauchst Du Stilgar's UDF.

Dort ist auch eine Dokumentation.

L3viathan

Also, die Farbe Rosa (FF00FF) sollte doch eigentlich transparent sein...

L3viathan

Mit reshack kannst du aus dem explorer ein paar avi's rausholen.
Wird rosa eigtl. Automatisch transparent?

L3viathan

Nöö, nicht bevor ich nochmal drübergeguckt habe--> Trojanerpotential...

L3viathan

[autoit]

$n=Inputbox("Bla")
$k=56 * 1,5^($n-1)
Msgbox(0,"Ergebnis:",$k)

[/autoit]

Wieso soll das so nicht gehen?

L3viathan

Na und, man möchet doch vlt.
<ironie>Bla</ironie> machen...
Egal, ist ja nicht meine Sache...

L3viathan

Hab auch mal sowas gemacht, mit meiner WinFX-UDF:

Spoiler anzeigen

[autoit]

;~ #include <WinFX.au3>
;WinFX.au3-Funktion: FlashDesktop:
Func _WinFX_FlashDesktop($iSpeed=3,$hColor=0xffffff)
;Remarks: Don't use AdLib with this
GUICreate("Flash",@DesktopWidth,@DesktopHeight,0,0,0x80000000,0x00000080)
GUISetBkColor($hColor)
WinSetTrans("Flash","",240)
GUISetState()
For $i=100 To 255 step 5
WinSetTrans("Flash","",$i)
Next
For $i=255 To 0 step -$iSpeed
WinSetTrans("Flash","",$i)
Next
if not @error then return true
EndFunc
#include <Screencapture.au3>
HotKeySet("{PRINTSCREEN}","_screen")
If not FileExists("D:\Files\Screenshots\") Then DirCreate("D:\Files\Screenshots\")
Func _screen()
HotKeySet("{PRINTSCREEN}")
$i=1
While FileExists("D:\Files\Screenshots\pic" & $i & ".jpg")
$i += 1
WEnd
_ScreenCapture_Capture("D:\Files\Screenshots\pic" & $i & ".jpg")
_WinFX_FlashDesktop(1)
HotKeySet("{PRINTSCREEN}","_screen")
EndFunc
While True
sleep(200)
WEnd

[/autoit]

/edit: Sind natürlich noch meine Verzeichnisse, müsste man verallgemeinern...

L3viathan

Ist doch dumm wenn HTML komplett entfernt wird, kann man keine Pseudotags mehr setzen.
Wofür ist das? Was für ein Chat? HTML wird da doch nicht ausgeführt! Ist also kein Risiko, oder?

L3viathan

ctec: Das ist so ähnlich wie:
Beschreiben Sie die Entwicklung der Industrialisierung Englands im 19. Jahrhundert mit eigenen Worten.
Lösung:
JHajd kaspö fhifs sef sfj sfsj fjsf sespüfai fakpf akata.
(Original aus "Calvin & Hobbes" von Bill Waterson)

L3viathan

Ich hab genau das auch schon mal gemacht, bloß etwas umfangreicher, nur müsste ich das umbauen, ums hier im Forum zeigen zu dürfen...
Es lässt sich nämlich nur vom Client aus entfernen und so...

L3viathan

Hol dir OrganizeIncludes (links bei Downloads) von Xenobiologist

Beiträge von L3viathan

2 GUI in 1 Skript?!?

Programm soll mir in der Checkbox und im unteren Fenster bestimmte sachen angeben wenn ich aus der Liste ein Spiel ausgesucht habe.

2 GUI in 1 Skript?!?

Einfacher Rechner

TCP/IP Chat + RSA Verschlüsselung!

Ordner Öffnen per Autoit??

gelöst

Ordner Öffnen per Autoit??

Videos für AutoIt

Instantce Problem

Videos für AutoIt

Videos für AutoIt

Bitmap bzw. Pc vernsteuern

Matschkopf, ich brauche Schleifenprofis!

Chat Bot Funktionen

Screenshotter

Chat Bot Funktionen

Rechner

Bitmap bzw. Pc vernsteuern

Konstanten fehlen in <GuiConstants.au3> ?