Beiträge von muh_kuh

Nehme das Word Dokumen
ändere es mit der Word.au3
und drucke es dan als PDF
Gruß

Hallo
danke für eure ideen
ein bissen was habe ich schon durch probirt

$StatusbarGet = StatusbarGetText ( "Dropbox 0.7.110" )
$GetText = ControlGetText ( "", "", "ToolbarWindow321" )
$test = ControlGetText ( "", "", "ToolbarWindow321")
$test2 = ControlGetPos ( "", "", "ToolbarWindow321")

gefudnen hatte ich noch was in Python
http://wiki.dropbox.com/DropboxAddons/…StatusInWindows

import win32pipe, win32ts, win32api, pywintypes, struct, sys


def dropbox_path_status(pathname):
        return ['dropbox not running','not in dropbox','up to date','syncronising','sync problem'][dropbox_path_status_code(pathname)+1]


def dropbox_path_status_code(pathname):
        processid = win32api.GetCurrentProcessId()
        threadid = win32api.GetCurrentThreadId()
        request_type = 1
        wtf = 0x3048302
        pipename = r'\\.\PIPE\DropboxPipe_' + str(win32ts.ProcessIdToSessionId(processid))
        request = (struct.pack('LLLL', wtf, processid, threadid, request_type) + pathname.encode('utf-16') + (chr(0)*540))[0:540]
        try:
                response = win32pipe.CallNamedPipe(pipename, request, 16382, 1000)
        except pywintypes.error, err:
                if err[0] == 2:
                        return -1
                else:
                        raise
        else:
                return int(response[4:-1])


if __name__ == "__main__":
        if len(sys.argv) > 1:
                print dropbox_path_status(sys.argv[1])
        else:
                print >> sys.stderr, 'pathname required'

kann damit vieleicht hjemand was anfangen ?

Hallo
für ein Bakup Script nutze ich die Dropbox
jetzt stehet ich von den Problem das ich den Status nicht auslesen kann
über das "AutoIt Window Info" bekomme ich in bereich Toolbar auch ein wert rein
aber wie kann ich ihn in ein Script auswerten ?
Gruß

vieleicht kann man auf die User Daten von Baord via einer API zugreifen
Gruß

Karten gibt es bei http://commons.wikimedia.org/wiki/Category:…t_playing_cards vileicht
must sie dan aber zu jpg umwandeln

Hallo
da ich auch das Problem hatte das _ExcelReadSheetToArray nicht mit einer Deutschen Excel version geht
habe ich eine Lösung Programmiert

Func _ExcelReadSheetToArray($oExcel, $iStartRow = 1, $iStartColumn = 1, $iRowCnt = 0, $iColCnt = 0, $iColShift = False)
Local $avRET[1][2] = [[0, 0]] ; 2D return array

; Test inputs
If Not IsObj($oExcel) Then Return SetError(1, 0, 0)
If $iStartRow < 1 Then Return SetError(2, 0, 0)
If $iStartColumn < 1 Then Return SetError(2, 1, 0)
If $iRowCnt < 0 Then Return SetError(3, 0, 0)
If $iColCnt < 0 Then Return SetError(3, 1, 0)

; Get size of current sheet as R1C1 string
; Note: $xlCellTypeLastCell and $x1R1C1 are constants declared in ExcelCOM_UDF.au3
Local $sLastCell = $oExcel.Application.Selection.SpecialCells($xlCellTypeLastCell).Address(True, True, $xlR1C1)
; Extract integer last row and col
if $oExcel.Application.International(1)= 49 Then
Local $iLastRow = StringInStr($sLastCell, "Z")
Local $iLastColumn = StringInStr($sLastCell, "S")
else
Local $iLastRow = StringInStr($sLastCell, "R")
Local $iLastColumn = StringInStr($sLastCell, "C")
EndIf
$iLastRow = Number(StringMid($sLastCell, $iLastRow + 1, $iLastColumn - $iLastRow - 1))
$iLastColumn = Number(StringMid($sLastCell, $iLastColumn + 1))

; Return 0's if the sheet is blank
if $oExcel.Application.International(1)= 49 Then
If $sLastCell = "Z1S1" And $oExcel.Activesheet.Cells($iLastRow, $iLastColumn).Value = "" Then Return $avRET
else
If $sLastCell = "R1C1" And $oExcel.Activesheet.Cells($iLastRow, $iLastColumn).Value = "" Then Return $avRET
EndIf

; Check input range is in bounds
If $iStartRow > $iLastRow Then Return SetError(2, 0, 0)
If $iStartColumn > $iLastColumn Then Return SetError(2, 1, 0)
If $iStartRow + $iRowCnt - 1 > $iLastRow Then Return SetError(3, 0, 0)
If $iStartColumn + $iColCnt - 1 > $iLastColumn Then Return SetError(3, 1, 0)

; Check for defaulted counts
If $iRowCnt = 0 Then $iRowCnt = $iLastRow - $iStartRow + 1
If $iColCnt = 0 Then $iColCnt = $iLastColumn - $iStartColumn + 1

; Size the return array
ReDim $avRET[$iRowCnt + 1][$iColCnt + 1]
$avRET[0][0] = $iRowCnt
$avRET[0][1] = $iColCnt

If $iColShift Then ;Added by litlmike
; Read data to array
For $r = 1 To $iRowCnt
For $c = 1 To $iColCnt
$avRET[$r][$c - 1] = $oExcel.Activesheet.Cells($iStartRow + $r - 1, $iStartColumn + $c - 1).Value
Next
Next
Else ;Default for $iColShift
; Read data to array
For $r = 1 To $iRowCnt
For $c = 1 To $iColCnt
$avRET[$r][$c] = $oExcel.Activesheet.Cells($iStartRow + $r - 1, $iStartColumn + $c - 1).Value
Next
Next
EndIf
;Return data
Return $avRET
EndFunc ;==>_ExcelReadSheetToArray

der Code Basiert AutoIt Version: 3.2.3++, Excel.au3 v 1.5 (07/18/2008 @ 8:25am PST)

also ansatz installierte Drucker ermitteln / auflisten

Gibt es da keine Demos ?
die du einfach mal Ausprobiren kannst ?
wenn du dan eine genau Frage hast kannst du die hier sicher Stellen

hast du rausgefunden
wie man Aspell grundsätzlich anspricht ?
das ist glaube ich die Größere Hürde

Hallo
du weist das dir die Regeln nur geschränkt ein Programm erlauben ?
du must auf login clicken
nicht senden

ich spiele icewars.de
das reicht finde ich

Hallo
welche Au3 verion nutz du ?
ist es jetzt in #include <NomadMemory.au3>
oder in #include"NomadMemory.au3"
?
Gruß

Erledigt

Hallo
ich vermisse bei den Status
das dort steht das ich in dieser Katgorie nicht mehr machen kann
Gruß

das selbst zu senden ?
via POST

Notepad++
nutz ich

nur das bild in die Adressenleiste schreiben lassen ?

Zitat von JoEtHeKiLlEr

Auf der anderen Seite könnten Leute die Bots programmieren wollen auf ein Forum treffen, in dem sie es auch dürfen. Dann wäre es hier auch leiser...

Hallo
man kann ihn ja den link senden
so lang Googel keine Link von hier zu denen hat
werde die gleicht besser bewertet

Gruß

finde ich gut
freud mich

Hallo
zuzeit geister hie rim Forum einer rum mit der Signatur für ein Autoit Bot Forum
da ich so was nicht gernen sehe wer vieleicht ein Verbot angebracht

Gruß