Beiträge von cr0co

Danke für die schnelle Fehlerbehebung

Ja die GUI taucht nicht auf

auch wenn ich im Tray rechtsklick mache und anzeigen klicke

Hallo

Coole Sache hast du da gemacht.

Habe jedoch einen Bug gefunden.

Zuerst wird man gefragt ob man die Steam ID weiss,
wenn man da auf Ja klickt und dann auf Cancel,
öffnet sich einfach das gleiche fenster nochmals,
und man kann das Programm nicht mehr beenden (ausser task manager)

Ausserdem zeigt es mir die Spiele nicht an  
im Ordner sehe ich im /images Ordner alle meine Spiele,
nur das Programm bleibt im Tray


OS: Windows 7 64bit
steamspiele: 42

Zitat von Kanashius

du kannst auch filereadtoarray() benutzen und dann das array durchlaufen

[autoit]

$x=filereadtoarray();bei altem autoit mit _ vor der funktion
for $i=0 to ubound($x)-1 step 1 _blockIp($x[$i])next
Func _blockIp($Ip);mit Ie.au3 die formulardaten eintragen und mit _ieAction den button abschickenEndFunc

[/autoit]

Kannst du mir das genauer erklären ?

Hallo

Ich muss diverse IPs blockieren, daher habe ich diverse IP adressen in einem .txt file untereinander.

(siehe printscreen)
Diese sollte ich nun bei "Quellen" eintragen,
blöderweise kann ich da nur eine eintragen, dann auf Hinzufügen klicken, usw..

Der hinzufügen button;

<DIV class="commonButton" id="bid-firewall-from-add" onClick="from_add_oC();return false;" " style=""><BUTTON name="bname_firewall_from_add" id="buttonid-firewall-from-add" type="button">Hinzufügen</BUTTON><SPAN id="spanid-firewall-from-add">Hinzufügen</SPAN></DIV>

kann man das irgendwie damit machen ?

;Datei einlesen
$f = FileOpen("C:\Dokumente und Einstellungen\Administrator\Desktop\test.txt")
; z.B. zweite Zeile der Datei auslesen
$line = FileReadLine($f,2)

das hast du mir so geschrieben, habs einfach kopiert

Zitat von water

Die Spalte "H" bekommst Du mit _Excel_RangeRead unter der Angabe von "H:H" als Range in einen Array.

Steht das irgendwo in einem Beispiel ?

super sache! genau so etwas habe ich gesucht.

1. ist es möglich bilder in der überschriften zu haben ?
wenn ich dann im "neu fenster" eine 1 eingabe soll er ein stern machen bei 2 1/2 soll er 2 und einen halben stern machen.
Oder ich wähle selber die sterne aus im "neu fenster" es müssten 1 1/2 2 2 1/2 3 1/2 4 1/2 5 1/2 sterne sein und das 2x.
wie im print screen

2. eine such eingabe um in den feldern zu suchen währe auch praktisch.

3. in einem feld habe ich koordinaten, währe es möglich diese bei einem klick oder einer eingabe in google maps zu öffnen ?
EDIT: habe gerade http://www.autoitscript.com/forum/topic/11…oogle-maps-udf/ gefunden, muss ich mal testen
gruss

Zur besseren verständnis, poste ich mal das ganze script;

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Word.au3>
#include <MsgBoxConstants.au3>
#include <OutlookEx.au3>
#include <Debug.au3>

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Administrator\Desktop\remo\Form1.kxf
$Form1 = GUICreate("Loginblatt erstellen", 623, 442, 585, 150)
$Label1 = GUICtrlCreateLabel("Domainname:", 48, 80, 101, 17)
$Label2 = GUICtrlCreateLabel("Kundennummer:", 48, 112, 97, 17)
$Label3 = GUICtrlCreateLabel("Mail Adresse:", 48, 144, 83, 17)
$Label4 = GUICtrlCreateLabel("FTPUser:", 48, 176, 73, 17)
$Label5 = GUICtrlCreateLabel("FTPPasswort:", 48, 208, 86, 17)
$Input1 = GUICtrlCreateInput("Domainname", 152, 80, 161, 21)
$Input2 = GUICtrlCreateInput("Kundennummer", 152, 112, 161, 21)
$Input3 = GUICtrlCreateInput("Mail Adresse", 152, 144, 161, 21)
$Input4 = GUICtrlCreateInput("FTPUser", 152, 176, 161, 21)
$Input5 = GUICtrlCreateInput("FTPPasswort", 152, 200, 161, 21)
$Label6 = GUICtrlCreateLabel("Server:", 48, 240, 94, 17)
$Input6 = GUICtrlCreateInput("Server", 152, 240, 161, 21)
$Button1 = GUICtrlCreateButton("Lets Go", 192, 336, 169, 41)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

Case $Label1
Case $Input1

Case $Button1
_domainname()

EndSwitch
WEnd

Func _domainname()
Global $oWord = objCreate("Word.Application")
If @error Then Exit MsgBox(0, "Error!", "Fehler " & @error & " bei Funktion ObjCreate")
$oWord.Visible = 1
Global $oDok = $oWord.Documents.Open ("C:\remo_autoit" & $Input6 & ".docx") ; Server Loginblatt öffnen // funktioniert nicht

; *****************************************************************************
; .docx füllen
; *****************************************************************************
$fftext = $oDok.FormFields("Text1")
$fftext.Result = GUICtrlRead($Input1) ; Domainname
$fftext = $oDok.FormFields("Text2")
$fftext.Result = GUICtrlRead($Input2) ; Kundennummer
$fftext = $oDok.FormFields("Text3")
$fftext.Result = GUICtrlRead($Input3) ; Mail Adresse
$fftext = $oDok.FormFields("Text4")
$fftext.Result = GUICtrlRead($Input4) ; FTPUser
$fftext = $oDok.FormFields("Text5")
$fftext.Result = GUICtrlRead($Input5) ; FTPPW

; *****************************************************************************
; Export the current page
; *****************************************************************************
$sPDFName = GuiCtrlRead($Input1)
_Word_DocExport($oDoK, "C:\remo_autoit" & "*" & $sPDFName & ".PDF", Default, $wdExportCurrentPage)
ShellExecuteWait($sPDFName)
EndFunc
_DebugSetup()
_DebugCOMError

ah super

Wie bringe ich jetzt die Tabelle H in eine Variable?

Beim

$Input1 = GUICtrlCreateInput("Domainname", 152, 80, 161, 21)

ah super scheint ja relativ simpel zu sein.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <Excel.au3>
#include <Array.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 411, 164, 192, 124)
$Label1 = GUICtrlCreateLabel("Domainname ?", 24, 48, 75, 17)
$Input1 = GUICtrlCreateInput("Domain", 120, 48, 217, 21)
$Button1 = GUICtrlCreateButton("OK", 104, 104, 209, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_domainname()
EndSwitch
WEnd
Func _domainname()

; Create application object and open an example workbook
Local $oAppl = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeFind Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oAppl, "C:\remo_autoit\sample.xls")
If @error Then
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeFind Example", "Error opening workbook '" & "C:\remo_autoit\sample.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_Excel_Close($oAppl)
Exit
EndIf

; *****************************************************************************
; Find all occurrences of value "$Input1" (partial match)
; *****************************************************************************
Local $aResult = _Excel_RangeFind($oWorkbook, "$Input1")
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeFind Example 1", "Error searching the range." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeFind Example 1", "Find all occurrences of value '$Input1' (partial match)." & @CRLF & "Data successfully searched.")
_ArrayDisplay($aResult, "Excel UDF: _Excel_RangeFind Example 1", "", 0, "|", "Sheet|Name|Cell|Value|Formula|Comment")
EndFunc

So sucht er das excel durch nach $Input1 leider nicht die eingabe des benutzers.
muss ich da noch einen anderen befehl setzen ?

hier läuft noch XP.

Auf den Desktop sollte ich doch volle rechte haben ?
es scheint so als würde er den pfad nicht finden,
oder die datei zu öffnen die noch gar nicht existiert.

Habe Probeweise mal die Pfade auf C:\test\ gesetzt.
gleicher fehler

das excel umfasst momentan 2602 Zeilen, und wird ständig erweitert

ja ohne probleme volle rechte auf dem pc.

so wie es am besten geht
habe nur gelesen das _Excel_RangeFind schneller sei ?

Zitat von water

Für die Hilfe zur Beta Version von AutoIt must Du Alt+F1 verwenden.

So findet er auch kein _Excel_RangeFind

Zitat von water

Wenn Du die "alte" Excel UDF verwenden möchtest, dann verwende _ExcelReaqdCell und übergieb die Zeile (Index von _ArraySearch) und Spalte der auszulesenden Zelle.

Verstehe ich leider nicht. Wie meinst du das? bei meinem script liest er ja nur die zeile aus,
ich möchte dann die spalte H in einer variable benutzen damit ich dann per firefox eine url öffnen kann

C:\Dokumente und Einstellungen\Administrator\Desktop\remo\_HOT\

das möchte ich ungern tun,
gibt es da keine andere möglichkeit die Datei im netzwerk zu speichern ?

(local funktioniert es auch nicht)

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Word.au3>
#include <MsgBoxConstants.au3>
#include <OutlookEx.au3>
#include <Debug.au3>

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Administrator\Desktop\remo\Form1.kxf
$Form1 = GUICreate("Loginblatt erstellen", 623, 442, 585, 150)
$Label1 = GUICtrlCreateLabel("Domainname:", 48, 80, 101, 17)
$Label2 = GUICtrlCreateLabel("Kundennummer:", 48, 112, 97, 17)
$Label3 = GUICtrlCreateLabel("Mail Adresse:", 48, 144, 83, 17)
$Label4 = GUICtrlCreateLabel("FTPUser:", 48, 176, 73, 17)
$Label5 = GUICtrlCreateLabel("FTPPasswort:", 48, 208, 86, 17)
$Input1 = GUICtrlCreateInput("Domainname", 152, 80, 161, 21)
$Input2 = GUICtrlCreateInput("Kundennummer", 152, 112, 161, 21)
$Input3 = GUICtrlCreateInput("Mail Adresse", 152, 144, 161, 21)
$Input4 = GUICtrlCreateInput("FTPUser", 152, 176, 161, 21)
$Input5 = GUICtrlCreateInput("FTPPasswort", 152, 200, 161, 21)
$Label6 = GUICtrlCreateLabel("Server:", 48, 240, 94, 17)
$Input6 = GUICtrlCreateInput("Server", 152, 240, 161, 21)
$Button1 = GUICtrlCreateButton("Lets Go", 192, 336, 169, 41)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

Case $Label1
Case $Input1

Case $Button1
_domainname()

EndSwitch
WEnd

Func _domainname()
Global $oWord = objCreate("Word.Application")
If @error Then Exit MsgBox(0, "Error!", "Fehler " & @error & " bei Funktion ObjCreate")
$oWord.Visible = 1
Global $oDok = $oWord.Documents.Open ("C:\Dokumente und Einstellungen\Administrator\Desktop\D5.docx") ; Server Loginblatt öffnen

; *****************************************************************************
; .docx füllen
; *****************************************************************************
$fftext = $oDok.FormFields("Text1")
$fftext.Result = GUICtrlRead($Input1) ; Domainname
$fftext = $oDok.FormFields("Text2")
$fftext.Result = GUICtrlRead($Input2) ; Kundennummer
$fftext = $oDok.FormFields("Text3")
$fftext.Result = GUICtrlRead($Input3) ; Mail Adresse
$fftext = $oDok.FormFields("Text4")
$fftext.Result = GUICtrlRead($Input4) ; FTPUser
$fftext = $oDok.FormFields("Text5")
$fftext.Result = GUICtrlRead($Input5) ; FTPPW

; *****************************************************************************
; Export the current page
; *****************************************************************************

$sPDFName = GuiCtrlRead($Input1)
_Word_DocExport($oDoK, "C:\Dokumente und Einstellungen\Administrator\Desktop\remo\_HOT" & "*" & $sPDFName & ".PDF", Default, $wdExportCurrentPage)
ShellExecuteWait($sPDFName)
EndFunc
_DebugSetup()
_DebugCOMError

in der Help (mit taste F1) finde ich kein _Excel_RangeFind?

habs jetzt auch mal mit _ArraySearch versucht. er findet die gesuchte eingabe,
was muss ich jetzt tun um dann in dieser Zeile wo er die eingabe gefunden hat, die Tabelle H (8) auszulesen,
und zu benutzen?

#include <Excel.au3>
#include<Array.au3>
Dim $tes1, $tes2, $tes3, $tes4
$sFilePath1 = "C:\Dokumente und Einstellungen\Administrator\Desktop\sample.xls"
$oExcel = _ExcelBookOpen($sFilePath1)
$tes1 = @error
If @error = 1 Then
MsgBox(0, "Error!", "Unable to Create the Excel Object")
ElseIf @error = 2 Then
MsgBox(0, "Error!", "File does not exist!")
EndIf
$aArray = _ExcelReadSheetToArray($oExcel) ;Using Default Parameters
$tes3 = @error
$tes4 = @extended
If @error = 0 Then MsgBox(0, '', 'No errors opening the sheet!', 4)
If @error > 0 Then MsgBox(0, 'Not Opening the sheet', 'The Extended error for opening the sheet is = ' & @extended, 4)
_ArrayDisplay($aArray, "")
$sSearch = InputBox("", "Domainname?")
$row = UBound($aArray)
$column = UBound($aArray, 2)
$iIndex = _ArraySearch($aArray, $sSearch, "", "", "", "", 0, 1)
;$aserver = _ArraySearch($aArray, $sSearch, "", "", "", "", 8, $iIndex)
If @error Then
MsgBox(0, "Not Found", '"' & $sSearch & '" was not found on column ' & 1 & '.')
Else
MsgBox(0, "Found", '"' & $sSearch & '" was found in the array at position ' & $iIndex & ' on column ' & 1 & '.')

; MsgBox(0, "Found", '"' & $sSearch & '" Server: ' & $aServer & ' on column ' & 1 & '.')
;MsgBox(0, "Found", '"' & $sSearch & '" Server: ' & $aServer)
EndIf

_ExcelBookClose($oExcel) ; Und zum Schluss schließen wir die Datei.

Die auskommentierten Sachen, sind meine Versuche

Habe mir die Beta runtergeladen.

Gibt es ein Tut von der _Excel_RangeFind?