Hallo Sammy!
Das geht so:
[autoit]StringSplit("test test",@TAB)
[/autoit]Mfg Spider
p.s.: Sorry war grade bei ICQ nicht on..
Hallo Sammy!
Das geht so:
[autoit]StringSplit("test test",@TAB)
[/autoit]Mfg Spider
p.s.: Sorry war grade bei ICQ nicht on..
Hallo!
Mit List geht das nicht so einfach, aber mit ListView gehts! (Du kannst ja als Style $LVS_LIST nehmen..)
Hier das Beispiel, die Wichtigen zeilen sind kommentiert!
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit];Globals für die Funktion:
Global Const $NM_FIRST = 0
Global Const $NM_DBLCLK = -3
$MainGui = GUICreate("DBClick test", 516, 295, 192, 120)
GUISetBkColor(0x0)
$ListView = GUICtrlCreateListView("Produkt Name", 8, 8, 498, 214,$LVS_LIST);Das ListView mit $LVS_LIST...
$TestItem = GUICtrlCreateListViewItem("TEST1", $ListView);Test 1
$TestItem = GUICtrlCreateListViewItem("TEST2", $ListView);Test 2
$settoebay = GUICtrlCreateButton("&Verkaufen", 8, 232, 355, 25, 0)
$selfbuy = GUICtrlCreateButton("Selbst &Bieten", 8, 264, 115, 25, 0)
$moreinfos = GUICtrlCreateButton("Weitere &Informationen", 128, 264, 115, 25, 0)
$exitbut = GUICtrlCreateButton("E&xit", 248, 264, 115, 25, 0)
$Pic = GUICtrlCreatePic(@WindowsDir & "\winnt.bmp", 368, 232, 138, 52, BitOR($SS_NOTIFY, $WS_GROUP))
GUISetState(@SW_SHOW)
GUIRegisterMsg(0x004E, "_DoubleClickOnListView");Die Funktion wird bei einem Klick auf die GUI aufgerufen!
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $exitbut
Exit
EndSwitch
WEnd
Func _DoubleClickOnListView($hWndGUI, $MsgID, $wParam, $lParam);Die Eigentliche Funktion
Local $tagNMHDR, $event, $hwndFrom, $code
$tagNMHDR = DllStructCreate("int;int;int", $lParam)
If @error Then Return
$event = DllStructGetData($tagNMHDR, 3); Checkt wie das EVENT aussieht
If $wParam = $ListView Then;Wenn der Klick auf das ListView ging..
If $event = $NM_DBLCLK Then;.. Wenn es ein DoppelKlick war
; Hier kommt hin was er machen soll:
MsgBox(0, "",GUICtrlRead(GUICtrlRead($ListView)))
EndIf
EndIf
$tagNMHDR = 0
$event = 0
$lParam = 0
EndFunc ;==>_DoubleClickOnListView
Mfg Spider
Hallo DJ!
Also.. ich glaube das problem liegt in deiner person wie du rüber kommst! Also z.B. wenn jemmand dir ein skript geschrieben hat als hilfe oder so was kommt immer nur als rückmeldung "Funktioniert!".. das ist jetzt nur ein kleines beispiel! Probiers doch mal so z.B.: "Super! Danke für das Skript funktioniert perfekt"
Naja.. aber das ist nur eine nebensächlichkeiten! Zu 4.: Wirf mal nicht gleihc die Flinte ins Korn! Ich hab persönlich nich viel gegen dich. Was immer nur nervt diese ewigen doppelposts (hat sich zum glück ja verbessert) und die kurzen 2-3 wörter posts!
Jetzt mal was positives Ich finde du hast dich garnicht mal so schlecht hoch gearbeitet! Auch teil ganz gute programme geschrieben! Bitte pass dich einfach uns nur ein bisschen an, mehr wollen wir garnicht von dir wir wollen ja auch NICHTS böses!
Mfg Spider
Edit: Genau wegen solchen Posts: Hilfe erwünscht!... Die bringen doch garnichts!
Hallo!
Da gibt es seeehr viele möglichkeiten, hier die möglichkeit die BugFix & ich verwenden: UnFREEz
Mfg Spider
Hallo!
Probiers mal Mit DriveGetType!
Mfg Spider
Hallo!
@Viren: War das dein ernst?^^ Wenn ja gibt es hier ein Artikel was ein Virus ist:
http://de.wikipedia.org/wiki/Computervirus
Mfg Spider
Hallo!
Das war mein Bedenken Desswegen auch noch mal beitrag "GeEdit"! Sonst müsst ich ja die probleme von Mircosoft ausbaden, und das wäre ja gemein
Also. Bei Problemen an Mircosoft wenden
Mfg Spider
Hallo!
Ich habe mal vor langer zeit ein Script geschrieben mit dem man Netzwerke De-/Aktivieren kann! Habe es ganz vergessen hier zu posten.. tut mir Leid :tier:
Zur Info: ACHTUNG: Diese Script würde wenn ihr es startet Alle Netzwerkverbindungen Deaktivieren/Aktivieren!, also Auch das Internet! Übernehme keine Haftung für Schaden (da ich Devcon.exe nicht selber programmiert habe, es sollte aber eigentlich nichts passieren *g*
Naja.. Hier das Skript:
If @Compiled Then
FileInstall("button3.bmp","button3.bmp")
FileInstall("button2.bmp","button2.bmp")
FileInstall("devcon.exe","*.*")
EndIf
#include <GUIConstants.au3>
$on = 1
Ping("www.google.de",250)
If @error Then $on = 0
$Form1 = GUICreate("I/O", 50, 80,0, 0,$WS_BORDER)
GUISetBkColor(0xFFFFFF)
$Button1 = GUICtrlCreateButton("", 8, 8, 35, 35, $BS_BITMAP)
$lab = GUICtrlCreateLabel("ON",60,13,50,50)
GUICtrlSetFont(-1,15)
If $on = 0 Then
$on = 1
GUICtrlSetImage($Button1, "button2.bmp")
GUICtrlSetData($lab,"OFF")
GUICtrlSetTip($Button1,"Anschalten")
Else
$on = 0
GUICtrlSetImage($Button1, "button3.bmp")
GUICtrlSetData($lab,"ON")
GUICtrlSetTip($Button1,"Ausschalten")
EndIf
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button1
If $on = 1 Then
$on = 0
RunWait('devcon enable =Net PCI\*', @ScriptDir, @SW_HIDE)
GUICtrlSetImage($Button1, "button3.bmp")
GUICtrlSetData($lab,"ON")
GUICtrlSetTip($Button1,"Ausschalten")
Else
$on = 1
RunWait('devcon disable =Net PCI\*', @ScriptDir, @SW_HIDE)
GUICtrlSetImage($Button1, "button2.bmp")
GUICtrlSetData($lab,"OFF")
GUICtrlSetTip($Button1,"Anschalten")
EndIf
EndSelect
WEnd
Exit
Func OnAutoItExit()
If @Compiled Then
FileDelete("button3.bmp")
FileDelete("button2.bmp")
FileDelete("devcon.exe")
EndIf
EndFunc
Und hier nochmal Button2/3.bmp, die devcon.exe und Das Compilete Script + Soruce!
Mfg Spider
Hallo!
Gut Sieht gut aus! Weiter so
zu Deinen Fragen:
Zum "Drive Lock" (so nennt es das englische Forum) gibt es hier was:
http://www.autoitscript.com/forum/index.php?showtopic=30674
Zum "Network Lock" (so nenne ich es einfach mal^^) werde ich gleich mal ein Skript ins Forum posten, was ich schon vor langer langer zeit geschrieben habe (ca vor 1-2 monate(n) )
Mfg Spider
Hallo!
Den Decompiler findest du normalerweise hier:
C:\Programme\AutoIt3\Extras\Exe2Aut\!
Mfg Spider
Hallo!
Jo das is richtig! Also größtenteils der funktionen! z.B.: _IERefresh.. usw
Mfg Spider
Hallo!
Zu deinem anderen "problem" mit dem sednen zur serielen schnittstelle.. es gibt da so eine wunderschöne dll namens inpout32.dll
Hier ein bsp code und unten die dll!
;InpOut32.dll erklärung:
;Weitere Infos: http://www.the-starbearer.de/Praxis/Program…%20inpout32.htm
;Erklärung: $dll = "diedll.dll", "Inp32" = Inputcheck, 0x379 = Com1(Nachzulesen im Gerätemanager unter z.b. Drucker)
;Aufruf: DllCall($dll,"short","Inp32",short",0x379
$oldcheck = 123
; DateiName Einstellungen* Schnittstelle Port
$r = DllCall("inpout32.dll", "short", "Inp32", "short", 0x379, "short", 11)
;*Einstellungen: Inp32 für Inputcheck, Out32 für SetOutput
[/autoit] [autoit][/autoit] [autoit]If Number($r[0]) = 255 Then
If $oldcheck <> 0 Then
MsgBox(0, "", "Alles ok")
$oldcheck = 0
EndIf
ElseIf Number($r[0]) = 127 Then
If $oldcheck <> 1 Then
MsgBox(0, "", "nicht alles ok..")
$oldcheck = 1
EndIf
Else
If $oldcheck <> 2 Then
MsgBox(0, "?!", "Iregnwas is da falsch *g*")
EndIf
EndIf
Mfg Spider
Hallo!
WEB würd ich keinem hier empfehlen! hab da mal ausversehen auf einen falschen link gedrückt und schwup die wupp 6 wochen später bekomme ich eine rechnung von 30€ weil ich wohl die testphase von web super als test version benutzt habe, und dann es wohl nicht abgewählt hätte.... und ich hatte es nochnichmal benutzt... naja.. nach 2 wochen langem "streit" hab ich dann schließlich gewonnen..
Also! Würde nimandem WEB empfelhen! Dagegen bin ich mit GMX mehr als zufrieden! 1GB speicher, und recht guter service!
@gunfood: hättest du zufällig auch noch eine gtaspider@autoit.de frei? =) Macht mehr eindruck wenn ich hier im forum gtaspider@autoit.de als email hab *g*
Mfg Spider
Hallo!
Ein nächster kommadozeilen eintrag wird meistens durch ein leerzeichen eingeführt, Ausser: wenn du ein kommandozeilen eintrag in anführungszeicehn (") setzt!
So geht es: (jdfalls mit MSAcces office 11..)
[autoit]$MDB = '"'&@ScriptDir & '\MS OFF\Access\test.mdb"'
$6 = @ProgramFilesDir & "\Microsoft Office\Office10\MSACCESS.EXE "& $MDB
Run($6,@ProgramFilesDir & "\Microsoft Office\Office10")
Mfg Spider
edit: mist^^ eddy war schneller
Hallo Tom!
Wie sieht denn soeine datei aus wo die user eingegeben sind? In meinem beispiel hab ichs eifnach mal so gemacht:
user.txt
inhalt:
ZitatUser 1
User 2
User 3
...
Server.txt
inhalt:
ZitatServer 1
Server 2
Server 3
...
Also hier das beispiel, hoffe es hilft dir weiter bei weitern fragen... einfach fragen
#include <file.au3>
$getuserfile = "userser.txt"
$getserverfile = "server.txt"
Dim $user
Dim $server
_FileReadToArray($getuserfile,$user)
If @error Then Exit MsgBox(16,"","Keine User Gefunden, oder Falsche datei!")
_FileReadToArray($getserverfile,$server)
If @error Then Exit MsgBox(16,"","Keine Server Gefunden, oder Falsche datei!")
$getsize = ""
For $i = 1 To $user[0]
$getsize &= $server[$i]&"("&$user[$i]&"): "&FileGetSize("\\"&$server[$i]&"\homeshare\"&$user[$i]&"\outlook.pst")
Next
MsgBox(0,"",$getsize)
[/autoit]Mfg Spider
Hallo!
weil.... gute frage ich dachte das das nur geht wenn kein anderes control/anderer button benutzt wird..also aktiviert wird.... Man lernt nie aus
danke bernd
Mfg Spider
Hallo!
Nagut wolln wir mal nich so sein Hab dir mal ein Skript geschrieben.. Erstellt mit Koda! Koda ist auch in Scite drin! Scite&Koda sind sowieso sehr empfelenswert!!
Also das Skript: (ich hatte langeweile.. also daher etwas ausfürlicher Bei Fragen... einfach fragen :musik2:
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]HotKeySet("{ENTER}","_Start") ;Wenn enter gedrückt wird Funktion _Start() aufrufen!
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$maingui = GUICreate("AForm1", 380, 108, 193, 115) ; Main Gui
GUICtrlCreateGroup("Pfad", 8, 8, 360, 49);Groupe "Pfad"
$pfadinp1 = GUICtrlCreateInput("Pfad1", 16, 24, 121, 21)
$durchsuchen1 = GUICtrlCreateButton("..", 144, 24, 20, 21, 0)
$pfadinp2 = GUICtrlCreateInput("Pfad2", 208, 24, 121, 21)
$durchsuchen2 = GUICtrlCreateButton("..", 336, 24, 20, 21, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$start = GUICtrlCreateButton("Start", 144, 72, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE; Wenn GUI Geschlossen wird
Exit
Case $durchsuchen1 ; Wenn $durchsuchen1 button gedrückt wurde
$durchsuchen = FileOpenDialog("","","Exe dateien (*.exe)")
If @error Then ContinueLoop ; Wenn Abbrechen gedrückt wurde die aktion abbrechen
GUICtrlSetData($pfadinp1,$durchsuchen)
Case $durchsuchen2 ; Wenn $durchsuchen2 button gedrückt wurde
$durchsuchen = FileSaveDialog("","","Exe dateien (*.exe)",16)
If @error Then ContinueLoop ; Wenn Abbrechen gedrückt wurde die aktion abbrechen
If StringRight($durchsuchen,4) <> ".exe" Then $durchsuchen &= ".exe"
GUICtrlSetData($pfadinp2,$durchsuchen)
Case $start ; Wenn der Start Button gedrückt wurde
_Start()
EndSwitch
WEnd
Func _Start()
If Not WinActive($maingui) Then
HotKeySet("{ENTER}")
Send("{ENTER}")
HotKeySet("{ENTER}","_Start")
Return 0
EndIf
$pfad1 = GUICtrlRead($pfadinp1)
$pfad2 = GUICtrlRead($pfadinp2)
If StringLen($pfad1) = 0 Or StringLen($pfad2) = 0 Then
MsgBox(16,"","Bitte wählen Sie erst die pfäde aus!")
Return 0
EndIf
GUIDelete(); Entfernt die GUI!
FileCopy($pfad1,$pfad2,1); Kopiert die datei
Exit
EndFunc
Mfg Spider
Hallo und herzlich :willkommen:
Ich habe auch mal sowas geschrieben( Chat über TCP/IP Prof.)! Ist schon einige zeit her..Vlt kannst du dir da was abgucken
Findest du auch in meiner neuen sigi
Dein Skript sieht aber sehr gut aus! Ist das das erste forum in dem du bist? Und wie bist du eigentlich zu uns gekommen?
Mfg Spider
Hallo!
Tz... Ganz vergessen: grüß auch nochmal die anderen: BomberTM79 und DM2006!
Mfg Spider
Hallo!
@pee: Bei icq steht sein Geburtstag und wie alt er ist
Also herzlichen glückwunsch zum 25 geburtstag! Auf das du uns noch weitere 25 jahre dienen wirst :lol:
Naja.. eigentlcih dienen wir dir ja als untertanen..wobei du uns dienst das das forum aktiv ist/bleibt.. wobei wir die besucherbeitrgäge hochschmeißen (is das nich verwirrend? :irre:)
Naja.. Also noch mal ein ganz dickes Danke!! (und vlt auch ein kleines bitte? : :hm: )
Mfg Spider