Beiträge von i2c

i2c

SciTE4AutoIt -> Options -> Open Global Options File
Ab Zeile 434 die gewünschten Sprachen entkommentieren. SciTE neu tarten.
Im Optionsmenü findest du dann die propertie files für die jeweiligen Sprachen.

i2c

Im FileMove() fehlen auch noch ein paar backslashe.

[autoit]

FileMove ( $ordner & "\" & $FileList[1] , $ordner & "\" & $unterordner & @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & ".pdf", 0 )

[/autoit]

i2c

Ohne die CMD Parameter des Adobe Readers zu kennen ...
In deinem Pfad zum Reader hast du ein / statt eines \. Der Pfad an sich gehört zwischen Anführungszeichen. Das gleiche würde ich beim Dateipfad machen. Im Dateipfad fehlt dir die Datei, du verweisst auf einen Ordner. Zwischen Dateipfad und Drucker fhlt eine Leestelle.

[autoit]

Run(@ComSpec & " /c " & '"C:\Program Files\Adobe\Reader 9.0\ReaderAcroRd32.exe" /t "' & $ordner & $unterordner & $datei'" ' & $drucker, @SW_SHOW)

[/autoit]

i2c

[autoit]

$sString = BinaryToString(InetRead("htp://beispiel.de", 1) ,4)

[/autoit]

i2c

[autoit]

#include <array.au3>
#include <string.au3>
$sString = 'to.addVariable("video_url","http://beispiel.link.com/dl/135a8b155f246d11adc29069fdbb4d32/4ceb223f/videos/002/044/287/2044287.flv?r=150");'
$aResult = _StringBetween($sString, '"video_url","', '?')
_ArrayDisplay($aResult)
;oder
$aResult = StringRegExp($sstring, '"video_url","(.*?)\?', 1, 1)
_ArrayDisplay($aResult)
;oder
$aResult = StringRegExp($sstring, '(http://.*?flv)', 1, 1)
_ArrayDisplay($aResult)

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

#cs ### Output ###
[0] http://beispiel.link.com/dl/135a8b155f2…287/2044287.flv
#ce

[/autoit]

i2c

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#Include <File.au3>

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

#region - GUI Create
GUICreate('',200,200)
$list =GUICtrlCreateList('', 8,8,100,180)
GUISetState()
#endregion

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

$aFiles = _FileListToArray("c:\", "*.*", 1) ;Dateien in Array lesen
For $i = 1 To $aFiles[0]
GUICtrlSetData($list, $aFiles[$i]) ;Listbox füllen
Next

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

#region - GUI SelectLoop
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
#endregion

[/autoit]

edit: vergessen .... um etwas aus der Liste zu löschen

[autoit]

_GUICtrlListBox_BeginUpdate()
_GUICtrlListBox_DeleteString()
_GUICtrlListBox_EndUpdate()

[/autoit]

i2c

Spoiler anzeigen

[autoit]

;input edit control subclassing and ES_NUMBER style tooltip hijack
;convert numbers only tooltip error message of GUICtrlCreateInput() or GUICtrlCreateEdit() controls with $ES_NUMBER style
;to title, text and language of your choice.
;Author: rover
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIConstantsEX.au3>
#include <Constants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#Include <GuiToolTip.au3>
#include <GuiEdit.au3>

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

Opt('MustDeclareVars', 1)

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

#cs ; constants for icon in EditConstants.au3
; Edit Balloon Tool Tip Icons
Global Const $TTI_NONE = 0
Global Const $TTI_INFO = 1
Global Const $TTI_WARNING = 2
Global Const $TTI_ERROR = 3
; Vista Edit Balloon Tool Tip Icons
Global Const $TTI_INFO_LARGE = 4
Global Const $TTI_WARNING_LARGE = 5
Global Const $TTI_ERROR_LARGE = 6
#ce

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

Global $hGui, $msg, $Input, $hInputUpDn, $wProcNew, $wProcOld

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

; set tooltip title, text and icon
Global $sInputTipTitle = "Unacceptable Character - In the language of your choice"
Global $sInputTipText = "You can only type a number here."
Global $iInputTipIcon = $TTI_ERROR

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

$hGui = GUICreate("numbers")
$Input = GUICtrlCreateInput("", 10, 10, 100, 20,$ES_NUMBER)
$hInputUpDn = GUICtrlGetHandle(-1) ; get handle of input control for subclassing

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

; subclass Input (Edit) control:
$wProcNew = DllCallbackRegister("_NewWindowProc", "int", "hwnd;uint;wparam;lparam")
$wProcOld = _WinAPI_SetWindowLong($hInputUpDn, $GWL_WNDPROC, DllCallbackGetPtr($wProcNew))
GUISetState()

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

While 1
$msg = GUIGetMsg()
If $msg = -3 Then _Exit()
WEnd

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

Func _Exit()
;Delete callback function
_WinAPI_SetWindowLong($hInputUpDn, $GWL_WNDPROC, $wProcOld)
DllCallbackFree($wProcNew)
GUIDelete($hGui)
Exit
EndFunc

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

Func _NewWindowProc($hWnd, $Msg, $wParam, $lParam)
#forceref $hWnd, $Msg, $wParam, $lParam
Local $tTitle, $tText, $tTT
;Local $nNotifyCode = BitShift($wparam, 16)
;Local $nID = BitAND($wparam, 0x0000FFFF)

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

Switch $Msg
Case $EM_SHOWBALLOONTIP
;code taken from GUICtrlEdit_ShowBalloonTip()
;MSDN references
;EDITBALLOONTIP Structure: http://msdn.microsoft.com/en-us/library/bb775466(VS.85).aspx
;EM_SHOWBALLOONTIP Message: http://msdn.microsoft.com/en-us/library/bb761668(VS.85).aspx
$tTitle = _WinAPI_MultiByteToWideChar($sInputTipTitle)
$tText = _WinAPI_MultiByteToWideChar($sInputTipText)
$tTT = DllStructCreate($tagEDITBALLOONTIP)
DllStructSetData($tTT, "Size", DllStructGetSize($tTT))
DllStructSetData($tTT, "Title", DllStructGetPtr($tTitle))
DllStructSetData($tTT, "Text", DllStructGetPtr($tText))
DllStructSetData($tTT, "Icon", $iInputTipIcon)
; pass EM_SHOWBALLOONTIP message to default WindowProc with pointer to a new EDITBALLOONTIP struct
Return _WinAPI_CallWindowProc($wProcOld, $hWnd, $Msg, $wParam, DllStructGetPtr($tTT))
;Case $EM_HIDEBALLOONTIP ; not needed
;_GUICtrlEdit_HideBalloonTip($hWnd) ; not needed
EndSwitch
; pass the unhandled messages to default WindowProc
Return _WinAPI_CallWindowProc($wProcOld, $hWnd, $Msg, $wParam, $lParam)
EndFunc ;==>_NewWindowProc

[/autoit]

i2c

Zitat von cOraXx

Bei mir kommt dann eine Fehlermeldung beim starten der Anwendung, dass diese Befehle nicht richtig sind..
Fehlermeldung:

Das war auch kein Copy & Paste Code sondern nur ein Beispiel. Variablen musst du schon selbst anpassen.
Dein Skript hab ich mir erst garnicht geladen. Die Skripte lassen sich auch hier im Forum posten.

Code

[spoiler][autoit]dein Skript[/autoit][/spoiler]

i2c

[autoit]

Case $button
If $Inhalt1="bla" And $Inhalt2="blub" Then
;machwas
EndIf

[/autoit]

i2c

[autoit]

MsgBox(0,"",_replace("Ä Ö Ü ä ü ö"))

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

Func _replace($sString)
Local $aUmlaute[6][2] = [["Ö","Oe"],["Ä","Ae"],["Ü","Ue"],["ö","oe"],["ä","ae"],["ü","ue"]]
For $i = 0 To 5
$sString = StringRegExpReplace($sString, $aUmlaute[$i][0], $aUmlaute[$i][1])
Next
Return $sString
EndFunc

[/autoit]

Je nachdem woher die Umlaute kommen oder wobei sie dich behindern, wäre es vlt. besser das Problem anders anzugehen.

i2c

[autoit]

#region
;irgendwas
#endregion

[/autoit]

i2c

Hoffe mal das es noch funktioniert.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <Date.au3>

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

Global $iCount = 8
Dim $aLbswupd[$iCount] ;Label
Dim $aSwupdbatch[$iCount] ;BatchPath
Dim $aSwupd[$iCount] ;Batchfile
Dim $aBatchAll[$iCount] ;BatchGesamt
Dim $aLabel[$iCount]
Dim $aSwupdpath[$iCount] ;UpdatePath
Dim $aSwupdfile[$iCount] ;Updatefile
Dim $aSwupdAll[$iCount];UpdateGesamt
Dim $aCheckbox[$iCount]

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

;GUI
$Form1 = GUICreate("Software Updater", 220, 210, 500, 230)
GUISetIcon(@ScriptDir & "\swupd.ico")
$Group1 = GUICtrlCreateGroup("Choose for update ... Last Update", 8, 8, 200, 163)
$lTop = 28
$cTop = 25
For $i = 1 To $iCount - 1
$aLbswupd[$i] = IniRead(@ScriptDir & "\CDE_SWUpdater.ini", "Label", "$lbswupd" & $i, "NichtGefunden")
$aSwupdbatch[$i] = IniRead(@ScriptDir & "\CDE_SWUpdater.ini", "BatchPath", "$swupdbatch" & $i, "NichtGefunden")
$aSwupd[$i] = IniRead(@ScriptDir & "\CDE_SWUpdater.ini", "Batch", "$swupd" & $i, "NichtGefunden")
$aBatchAll[$i] = $aSwupdbatch[$i] & $aSwupd[$i]
$aSwupdpath[$i] = IniRead(@ScriptDir & "\CDE_SWUpdater.ini", "UpdatePath", "$swupdpath" & $i, "NichtGefunden")
$aSwupdfile[$i] = IniRead(@ScriptDir & "\CDE_SWUpdater.ini", "UpdateFile", "$swupdfile" & $i, "NichtGefunden")
$aSwupdAll[$i] = $aSwupdpath[$i] & $aSwupdfile[$i]
$aLabel[$i] = GUICtrlCreateLabel("(" & IniRead(@ScriptDir & "\CDE_SWUpdater.ini", "UpdateDate", "$swupddate" & $i, "NichtGefunden") & ")", 143, $lTop, 60, 20)
GUICtrlSetFont($aLabel[$i], 7)
$lTop += 20
$aCheckbox[$i] = GUICtrlCreateCheckbox($aLbswupd[$i], 16, $cTop, 75, 20)
$cTop += 20
If Not FileExists($aSwupdAll[$i]) Then
GUICtrlSetState($aCheckbox[$i], $GUI_DISABLE)
GUICtrlSetState($aLabel[$i], $GUI_DISABLE)
EndIf
Next
$Button1 = GUICtrlCreateButton("Update", 8, 176, 90, 25, 0)
$Button2 = GUICtrlCreateButton("Close", 117, 176, 90, 25, 0)
$Date = StringLeft(_Now(), 10)
GUISetState()

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

;Check open Processes
;~ $openproc1 = ProcessExists("CCleaner.exe")
;~ $openproc2 = ProcessExists("VLC.exe")
;~ $openproc3 = ProcessExists("Notepad++.exe")
;~ $openproc4 = ProcessExists("picpick.exe")
;~ $openproc5 = ProcessExists("Teamviewer.exe") Or ProcessExists("Teamviewer_.exe")
;~ $openproc6 = ProcessExists("FoxIt Reader.exe")
;~ $openproc7 =

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $Button1
For $i = 1 To $iCount - 1
If _getCheckboxState($aCheckbox[$i]) = 1 Then
TrayTip("Update läuft", "Das Update von " & $aLbswupd[$i] & " läuft ...", 10, 0.5)
RunWait($aBatchAll[$i])
IniWrite(@ScriptDir & "\CDE_SWUpdater.ini", "UpdateDate", "$swupddate" & $i, $Date)
GUICtrlSetData($aLabel[$i], $Date)
GUICtrlSetState($aCheckbox[$i], $GUI_UNCHECKED)
EndIf
Next
TrayTip("", "", 0)
Case $msg = $Button2
Exit
EndSelect
WEnd

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

Func _getCheckboxState($controlID)
Return BitAND(GUICtrlRead($controlID), $GUI_CHECKED)
EndFunc ;==>_getCheckboxState

[/autoit]

i2c

Also ich kann mir kaum vorstellen, das alle 5 Quelltext-Ausschnitte die du jetzt gepostet hast auch genau so in ein und dem selben Quelltext vorkommen.Da fehlen ja teilweise HTML tags.

Wie wäre es denn, wenn du mal 1-2 zusammenhängenden, real vorkommende Quelltexte postest. Aus diesen Fetzen wird doch kein Mensch schlau.

i2c

[autoit]

#include <array.au3>
$string = '<a title="http://www.relink.us/view.php?id=a0854d8a0a63a96d760a1f5f7c552e" target="_blank" href="security.php?url=aHR0cDovL3d3dy5yZWxpbmsudXMvdmlldy5waHA/aWQ9YTA4NTRkOGEwYTYzYTk2ZDc2MGExZjVmN2M1NTJl">http://www.relink.us/view.php?id=a0854d8...d760a1f5f7c552e</a>'

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

$aResult = StringRegExp($string, '<a title="(.+)" target=', 1, 1)
_ArrayDisplay($aResult)

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

#cs ### Output ###
[0] http://www.relink.us/view.php?id=a0…d760a1f5f7c552e
#ce

[/autoit]

i2c

[autoit]

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
#region - GUI Create
GUICreate('', 100, 100)
$cbox = GUICtrlCreateCheckbox("bla", 8,
GUICtrlSetOnEvent(-1, "_checkbox")
GUISetState()
#endregion - GUI Create

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

#region - GUI SelectLoop
While 1
Sleep(100)
WEnd
#endregion - GUI SelectLoop

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

Func _checkbox()
If GUICtrlRead($cbox) = 1 Then
MsgBox(0, 0, "Wert 2 setzen")
ElseIf GUICtrlRead($cbox) = 4 Then
MsgBox(0, 0, "Wert 0 setzen")
EndIf
EndFunc ;==>_checkbox

[/autoit]

i2c

FileWrite("NeuesDokument.txt", GUICtrlRead($EnterPasswort))

i2c

Schau dir ...
IniRead()
IniWrite()
_StringEncrypt()
...an.

i2c

Wird das Thema dann bitte noch auf [gelöst] gesetzt.

i2c

?
$ini = @scriptdir & "\deine.ini"

i2c

Ich dachte mehr in diese Richtung

[autoit]

For $i = 1 To Ubound($atmp) - 1 ;für den Fall, das mehr als ein Benutzer in der Datei steht
_ArraySearch($abenutzername, $atmp[$i])
If @error Then
MsgBox(0, "", "Sie sind zur Installation nich berechtigt!")
Exit
EndIf
Next

[/autoit]

Beiträge von i2c

Scite Darstellungsproblem

Anfänger braucht Hilfe bei cmd Befehl vom Adobe Reader

Anfänger braucht Hilfe bei cmd Befehl vom Adobe Reader

HTML analysieren

HTML analysieren

Liste mit Datein aus einem ordner füllen

$Es_Number

$Inhalt + $Inhalt2 + $Button1

$Inhalt + $Inhalt2 + $Button1

Umlaute ersetzten

Gruppierung mit ScITe

Script verbessern

RegExp

RegExp

Checkbox mit 2 Aktionen

Wie speichere ich Daten in einer .txt Datei, und rufe sie wieder ab?

Wie speichere ich Daten in einer .txt Datei, und rufe sie wieder ab?

Datei in Exe importieren

IniRead Standard-Datei

If oder If Not - das ist hier die Frage