ok hab meinen fehler gefunden
waren um genau zu sein mehrere die ich jetzt systematisch ausgebügelt hab
hab letztendlich mit dem level von exitloop gearbeitet
bei interesse poste ich das script gern.gruß Inferior
schön, dann ist dein Problem ja gelöst, schön wäre es allerdings auch wenn du den Thread auf gelöst setzt. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden)
mfg (Auto)Bert
tausche in deinem Skript
[autoit]_GUICtrlTab_SetCurSel
[/autoit]gegen
[autoit]_GUICtrlTab_SetCurFocus
[/autoit]aus und es funktioniert,
mfg (Auto)Bert
Hallo whiteLion,
du könntest ja mit AdlibRegister eine Funktion aufrufen die InetGetInfo(0) auswertet und nach 2 Sekunden ohne 1 Byte downgeloaded den Downloadversuch mit InetClose($HandledesDownloads) abbricht. Die gleiche Funktion kannst du benutzen um dir den DownLoad-Fortschritt anzuzuzeigen. Am Ende AdlibUnregister nicht vergessen,
mfg (Auto)Bert
Schau dir die Hilfe inkl. Beispiel zu
[autoit]FileSetPos
[/autoit]in der Hilfe an,
mfg (Auto)Bert
Einerseits find ich ja dein Engagement gegen Bot-User gut Autobert, aber andererseits gibt es auch Dinge wo man PixelSearch und Klick Funktion nutzen kann, die nichts mit Bots zutun hat.
Bei ihm hier bin ich mir nicht sicher, aber werde trotzdem auch lieber nicht helfen.
Ich äussere den Verdacht nur wenn ich mir sehr sicher bin im Zweifel frage ich nach wofür es gebraucht werden soll, wenn die Begründung danach schlüssig ist, gebe ich auch die nötigen Hinweise wo derjenige in der Hilfe nachlesen soll um sich das nötige Wissen anzueignen. Wenn du die SUFU benutzt wirst du (wenn auch wenige) die entsprechenden Hinweise zu "Maus schubs" Funktionen finden.
mfg (Auto)Bert
Ich habe noch ein paar Probleme/Vorschläge vorzubringen.
- Posts Anzahl,des Users, sollt wieder an der Seite seines Posts stehn.
- Die Icons beim alten Design stehen über.
- Sie SB sollte wieder Farben bekommen.
- Der Post zähler sollte wieder richtig Funzen.
Genau, die Anzahl der Post´s stimmt irgendwie nicht mehr... Hab plötzlich nur noch 140 oder so, da fehlen über 100.
Und ich fand die Ränge gut, vermisse sie regelrecht...
Grüsse!
Ach ich habe noch was dieser desrtfx hat schon seid 3 Tagen Geburtstag.
Oder zumindest steht es so da.
Hallo sprenger120,
was das nicht anzeigen des Postcounters angeht, dies ist eine Entscheidung des TEAMS um die unnützen (SPAM?-)Beiträge zur Verbesserung der eigenen Posts einzudämmen. Das zuwening Beiträge in der Mitgliedsliste angezeigt werden halte ich genau so wie den fälschlich heute immer noch angezeigten Geburtstag von desrtfx als Überbleisbel des letzten grossen Datenbank-Crashes aufgrund dessen AutoIt.de ca. 7 Stunden nicht erreichbar ware. Verfahre doch einfach so wie von @GunFood in Server Überlastet?
beschrieben,
mfg (Auto)Bert
(Ich habe son wlan stick und wenn der die verbindung verliert kommt son fenster ob ich verbinden möchte)
schöne Ausrede um Infos für einen BOT zu bekommen, habe selber WLan-Stick der Ansatz über PING (bereits genannt) funktioniert. Pixelsearch ist untauglich,
mfg (Auto)Bert
Hallo Inferior,
ExitLoop
Beendet eine While-, Do- oder For-Schleife.
ExitLoop [level]
Parameter
level [optional] Die Ebene der Schleife, die beendet werden soll (Standard ist 1, also die aktuelle Schleife).
mfg (Auto)Bert
Doch schau dir das Beispiel FormatSubItemLVex.au3 in ListView - SubItem einzeln färben/formatieren, Finale Version! an,
mfg (Auto)Bert
Hallo billemg,
so sollte es funktionieren:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <excel.au3>
Global $name, $vorname
[/autoit] [autoit][/autoit] [autoit]form()
[/autoit] [autoit][/autoit] [autoit]Func form()
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 526, 97, 192, 114)
$label2 = GUICtrlCreateLabel("Vorname", 232, 0, 69, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$label1 = GUICtrlCreateLabel("Name", 0, 0, 46, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$name = GUICtrlCreateInput("", 49, 0, 167, 21)
$vorname = GUICtrlCreateInput("", 304, 0, 167, 21)
$Button1 = GUICtrlCreateButton("In Excel speichen", 144, 48, 227, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Excel()
EndSwitch
WEnd
EndFunc ;==>form
Func Excel()
$Excel = _ExcelBookOpen("C:\namen.xls", 0)
$i = 1
Do
$i += 1
$sOldV = _ExcelReadCell($Excel, $i, 2) ;Read from the Cell
$sOldN = _ExcelReadCell($Excel, $i, 3) ;Read from the Cell
Until $oldV = "" And $sOldN = ""
_ExcelWriteCell($Excel, GUICtrlRead($vorname, 1), $i, 2) ;Write to the Cell
_ExcelWriteCell($Excel, GUICtrlRead($name, 1), $i, 3) ;Write to the Cell
_ExcelBookClose($Excel, 1, 0)
EndFunc ;==>Excel
ich habe aber kein Excel installiert, kann es daher nicht testen,
mfg (Auto)Bert
Hallo Xabbu,
dann schau dir die Hilfe zu dem von mir vewendeten
[autoit]GUICtrlSetState
[/autoit]an inkl. der Status-Tabelle und wende die Funktion auf $isall an (bei Programmstart bereits angecheckt). Falls du das auch nicht willst, musst du mit Schnitzel 's Version leben,
mfg (Auto)Bert
Control soll Benutzer "resizen" und verschieben können
{OT]ja solch ein aktives Control, dass den DAU zurechtstutzt und (vom Rechner weg) schiebt hätte ich manchmal auch ganz gerne.[/OT] schau dir noch einmal SEuBo 's Lösung an, scheint der richtige Weg zu sein,
mfg (Auto)Bert
Dann deselektiere es per Skript:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=ruoff.ico
#AutoIt3Wrapper_Outfile=connector.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=Connector by Terra-IT
#AutoIt3Wrapper_Res_Description=Connector zum verbinden von ausländischen Filialen ohne die MasterGUI zu verwenden
#AutoIt3Wrapper_Res_Fileversion=1.0.0.1
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p
#AutoIt3Wrapper_Res_LegalCopyright=Terra-IT
#AutoIt3Wrapper_Res_SaveSource=y
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_Field=Made By|Soeren Mindorf
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; *** Author: S. Mindorf 27.06.2010 ***
; *** Version 1.0 *Rewrite*, now with double click
#include<GuiListBox.au3>
#include<GUIConstantsEx.au3>
#include<ListBoxConstants.au3>
#include<WindowsConstants.au3>
$version = "1.0 (27.06.2010)"
$user = @UserName
$Form1 = GUICreate("Connector", 381, 236, 306, 216)
$help = GUICtrlCreateMenu("?")
$hilfe = GUICtrlCreateMenuItem("Hilfe", $help)
$about = GUICtrlCreateMenuItem("Info", $help)
$OK = GUICtrlCreateButton("OK", 152, 160, 90, 41, 0)
$Cancel = GUICtrlCreateButton("Cancel", 248, 160, 90, 41, 0)
$Label1 = GUICtrlCreateLabel("Wähle den Server aus:", 8, 45, 113, 17)
$isdebug = GUICtrlCreateCheckbox("GUI Debug", 8, 60, 90, 41)
$isall = GUICtrlCreateCheckbox("Select all", 8, 90, 90, 41)
$h1 = "Dieses Programm dient zur schnellen Verbindung zum Server."
$h2 = "Die ini-Datei befindet sich in %appdata% und muss wie folgt aussehen: [Serverip] server=servername,...,..."
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
$var = IniRead(@AppDataDir & "/connector.ini", "Serverip", "server", "NotFound")
$IP = StringSplit($var, ",")
$hListBox = GUICtrlCreateList("", 144, 45, 185, 71)
GUICtrlSetState(-1,$GUI_DISABLE)
GUISetState(@SW_SHOW)
$Serverlst = $hListBox
GUICtrlSetLimit(-1, 200); to limit horizontal scrollin
If $IP[0] = 1 Then;
MsgBox(0, "Fehler", "Es befinden sich keine Server in der ini")
Exit
Else
For $i = 1 To $IP[0]
_GUICtrlListBox_AddString($hListBox, '' & $IP[$i])
Next
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Cancel; Cancel wurde gedrückt
Exit
Case $OK; OK wurde gedrückt
SEP()
Exit
Case $about
MsgBox(0, "About", "Erstellt von Soeren Mindorf" & @LF & $version)
Case $hilfe
MsgBox(0, "Hilfe", $h1 & @LF & $h2)
Case $isall
If GUICtrlRead($isall) = $Gui_Checked Then
GUICtrlSetState($hListBox,$GUI_ENABLE)
Else
GUICtrlSetState($hListBox,$GUI_DISABLE)
EndIf
EndSwitch
WEnd
;$hListBox = GUICtrlCreateList("", 144, 45, 185, 71)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $hWndListBox
If Not IsHWnd($hListBox) Then $hWndListBox = GUICtrlGetHandle($hListBox)
$hWndFrom = $ilParam
$iIDFrom = BitAND($iwParam, 0xFFFF) ; Low Word
$iCode = BitShift($iwParam, 16) ; Hi Word
Switch $hWndFrom
Case $hListBox, $hWndListBox
Switch $iCode
Case $LBN_DBLCLK
;MsgBox(0, "Doppelklick", "Doppelklick Funktion start")
SEP()
Exit
; case 1
; ConsoleWrite("Click" & @CRLF)
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND
Func SEP()
MsgBox(0, "in Funktion SEP", "Funktion SEP")
If GUICtrlRead($isdebug) = 1 Then
MsgBox(0, "Debug ist an!", "Debug")
If GUICtrlRead($Serverlst) = "big.terra-it.de" Then
MsgBox(0, "big", "big")
Else
MsgBox(0, "alte Version", GUICtrlRead($Serverlst))
EndIf
Else
If GUICtrlRead($Serverlst) = "big.terra-it.de" Then
MsgBox(0, "big1", "big1")
Else
MsgBox(0, "alte GUI Version", "Alte GUI", 3)
EndIf
EndIf
EndFunc ;==>SEP
mfg (Auto)Bert
Hallo EpicWorld,
Vorschläge hast du genug, wenn du selbst nicht dazu in der Lage bist hier noch einmal:
Da es ja offensichtlich kommerziell sein soll, solltest du dein Anliegen in Programmieranfragen mit Gegenleistung posten.
Falls die in diesem Post erwähnte Firma http://board.gulli.com/thread/1521769…-place-to-play/ nicht deine ist solltest du auch über eine Namensänderung nachdenken, ansonsten die Seite ist nicht aufrufbar (Impressungspflicht beachten)
mfg (Auto)Bert
Hallo howik,
der Link in deiner Signatur funktioniert nicht (auch besser so, da er meines Erachtens den Forenregeln wiederspricht da Werbung)
mfg (Auto)Bert
Setze einfach
[autoit]HttpSetUserAgent("Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.1.6) Gecko/20091201 Firefox/3.5.6 GTB6 (.NET CLR 2.0.50727)") ; User-Agent (Header) von AutoIt3 ändern, da beim Webhoster dieser gesperrt ist
[/autoit]bevor du InetGet benutzt,
mfg (Auto)Bert
Hallo card0384,
dann benutze doch eine Ini, damit du es nicht fest im Skript hinterlegen musst:
;http://www.autoit.de/index.php?page…3432#post173432 BugFix
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <array.au3>
#include <ListViewConstants.au3>
#include <StructureConstants.au3>
#include <WindowsConstants.au3>
$aFormat = IniReadSection(@ScriptDir & "\LV_Format.ini","Format")
_ArrayDelete($aFormat,0)
_ArrayDisplay($aFormat)
$GUI = GUICreate("Listview Farbig", 1024, 300, 0, 0) ;<==== Breite geändert
$cListView = GUICtrlCreateListView("", 2, 2, 1020, 294, -1, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT)) ;<==== Breite geändert
$hListView = GUICtrlGetHandle($cListView)
For $i = 1 To 31
_GUICtrlListView_InsertColumn($hListView, $i - 1, $i, 25)
_GUICtrlListView_SetColumnWidth($hListView, $i - 1, 32) ;<==== eingefügt für Spaltenbreite
Next
For $i = 0 To 21 ; alle Item/SubItem erstellen
_GUICtrlListView_AddItem($hListView, "", $i)
For $j = 0 To 30
_GUICtrlListView_AddSubItem($hListView, $i, "", $j)
Next
Next
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
GUISetState()
While True
$msg = GUIGetMsg()
Switch $msg
Case -3
ExitLoop
EndSwitch
WEnd
Exit
Func WM_NOTIFY($hWnd, $msg, $wParam, $lParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR
$tNMHDR = DllStructCreate($tagNMHDR, $lParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hListView
Switch $iCode
Case $NM_CUSTOMDRAW
Local $tCustDraw = DllStructCreate($tagNMLVCUSTOMDRAW, $lParam)
Local $iDrawStage, $iItem, $iSubitem, $hDC, $tRect
$iDrawStage = DllStructGetData($tCustDraw, 'dwDrawStage')
Switch $iDrawStage
Case $CDDS_ITEMPREPAINT
Return $CDRF_NOTIFYSUBITEMDRAW
Case BitOR($CDDS_ITEMPREPAINT, $CDDS_SUBITEM)
; Item/SubItem das aktuell gezeichnet werden soll ermitteln
$iItem = DllStructGetData($tCustDraw, 'dwItemSpec')
$iSubitem = DllStructGetData($tCustDraw, 'iSubItem')
; bei fixer Zuordnung z.B. so
Switch $iItem ; Zeilenwahl
Case 0, 5, 10, 15, 20 ; in 5-Zeilenabstand die Zeile rot
DllStructSetData($tCustDraw, 'clrTextBk', RGB2BGR(0xFF0000))
Case Else ; alle anderen weiß
DllStructSetData($tCustDraw, 'clrTextBk', RGB2BGR(0xFFFFFF))
EndSwitch
Switch $iSubitem
Case -1 ;kommt nicht vor ist aber notwendig, damit case else verwendet werden kann
Case Else
$iIndex = _ArraySearch($aFormat, $iSubitem, 0, 0, 0, 0, 1, 0)
ConsoleWrite($iIndex & @CRLF)
If $iIndex <> -1 Then DllStructSetData($tCustDraw, 'clrTextBk', RGB2BGR($aFormat[$iIndex][1]))
EndSwitch
Return $CDRF_NEWFONT
EndSwitch
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Func RGB2BGR($iColor)
Local $sH = Hex($iColor, 6)
Return '0x' & StringRight($sH, 2) & StringMid($sH, 3, 2) & StringLeft($sH, 2)
EndFunc ;==>RGB2BGR
die dazugehörige INI:
[Format]
4=0x0000FF
22=0x0000FF
23=0x0000FF
24=0x0000FFAchtung die Einträge beginnen bei 0 4= bedeutet also der 5. Tag des Monats
mfg (Auto)Bert
XovoxKingdom:
Achtung die Checkbox kann mehrere Stati haben
mit BitAnd arbeiten
da XovoxKingdom GuiCtrlRead benutzt, ist das kein Problem. Anders wäre es bei GuiCtrlGetState.
mfg (Auto)Bert
