Beiträge von cr0co
-
-
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 -
du kannst auch filereadtoarray() benutzen und dann das array durchlaufen
[autoit]
[/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 abschickenEndFuncKannst 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;
Code<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 ?
[autoit];Datei einlesen
[/autoit]
$f = FileOpen("C:\Dokumente und Einstellungen\Administrator\Desktop\test.txt")
; z.B. zweite Zeile der Datei auslesen
$line = FileReadLine($f,2) -
-
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 screen2. 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;
[autoit]
[/autoit][autoit][/autoit][autoit]
#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
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
$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)
[/autoit][autoit][/autoit][autoit]
#EndRegion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Label1
[/autoit][autoit][/autoit][autoit]
Case $Input1Case $Button1
[/autoit][autoit][/autoit][autoit]
_domainname()EndSwitch
[/autoit][autoit][/autoit][autoit]
WEndFunc _domainname()
[/autoit][autoit][/autoit][autoit]
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; *****************************************************************************
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
; .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; *****************************************************************************
[/autoit]
; 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?
-
-
ah super scheint ja relativ simpel zu sein.
[autoit]
[/autoit][autoit][/autoit][autoit]
#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
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_domainname()
EndSwitch
WEnd
Func _domainname(); Create application object and open an example workbook
[/autoit][autoit][/autoit][autoit]
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; *****************************************************************************
[/autoit]
; 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")
EndFuncSo sucht er das excel durch nach $Input1 leider nicht die eingabe des benutzers.
muss ich da noch einen anderen befehl setzen ? -
-
das excel umfasst momentan 2602 Zeilen, und wird ständig erweitert
-
-
so wie es am besten geht
habe nur gelesen das _Excel_RangeFind schneller sei ? -
Für die Hilfe zur Beta Version von AutoIt must Du Alt+F1 verwenden.
So findet er auch kein _Excel_RangeFind
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 -
-
das möchte ich ungern tun,
gibt es da keine andere möglichkeit die Datei im netzwerk zu speichern ?(local funktioniert es auch nicht)
[autoit]#include <ButtonConstants.au3>
[/autoit][autoit][/autoit][autoit]
#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
[/autoit][autoit][/autoit][autoit]
$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)
[/autoit][autoit][/autoit][autoit]
#EndRegion ### END Koda GUI section ###While 1
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Label1
[/autoit][autoit][/autoit][autoit]
Case $Input1Case $Button1
[/autoit][autoit][/autoit][autoit]
_domainname()EndSwitch
[/autoit][autoit][/autoit][autoit]
WEndFunc _domainname()
[/autoit][autoit][/autoit][autoit]
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; *****************************************************************************
[/autoit][autoit][/autoit][autoit][/autoit][autoit]
; .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; *****************************************************************************
[/autoit][autoit][/autoit][autoit]
; Export the current page
; *****************************************************************************$sPDFName = GuiCtrlRead($Input1)
[/autoit][autoit][/autoit][autoit][/autoit]
_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,
[autoit]
was muss ich jetzt tun um dann in dieser Zeile wo er die eingabe gefunden hat, die Tabelle H (8) auszulesen,
und zu benutzen?
[/autoit][autoit][/autoit][autoit]
#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 & '.')
[/autoit][autoit][/autoit][autoit]
;MsgBox(0, "Found", '"' & $sSearch & '" Server: ' & $aServer)
EndIf_ExcelBookClose($oExcel) ; Und zum Schluss schließen wir die Datei.
[/autoit]Die auskommentierten Sachen, sind meine Versuche
-
Habe mir die Beta runtergeladen.
Gibt es ein Tut von der _Excel_RangeFind?