Beiträge von Greenhorn

  • Selbstentpackendes 7z Archiv entpacken

    Ob Du den Pfad zum Entpacken als Paramter angeben kannst, musst Du in der Dokumentation von 7z nachlesen, das weiß ich nicht.

    Ich habe vor einiger Zeit mal eine Funktion geschrieben um AutoItSfx zu entpacken. Das sollte dir weiterhelfen.

    Spoiler anzeigen
    [autoit]

    Func UnpackAutoItSfx ($szAutoItSfx, $szDestDir) ; OK

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

    If Not FileExists ($szAutoItSfx) Then Return SetError (1, 0, '')
    If Not FileExists ($szDestDir) Then DirCreate ($szDestDir)
    ; AutoIt v3 entpacken.
    Local $szWinTitle, $pidSFX, $hSearch, $szFile
    $szWinTitle = 'WinRAR self-extracting archive'
    $pidSFX = Run ($szAutoItSfx)

    If (WinWait ($szWinTitle, '', 10)) Then

    BlockInput (1)
    Sleep (100)

    If (ControlSetText ($szWinTitle, '', 1001, $szDestDir)) Then

    Sleep (100)

    If (ControlClick ($szWinTitle, '', 1)) Then

    BlockInput (0)
    ProcessWaitClose ($pidSFX)
    Sleep (100)
    $hSearch = FileFindFirstFile ($szDestDir & '\*')

    If ($hSearch = -1) Then

    FileClose ($hSearch)
    Return SetError (1, 0, '')
    Else
    While (True)

    $szFile = FileFindNextFile ($hSearch)
    If (@error) Then
    ExitLoop
    ElseIf (FileExists ($szDestDir & '\' & $szFile & '\AutoIt3.exe')) Then
    FileClose ($hSearch)
    Return $szDestDir & '\' & $szFile
    Else
    FileClose ($hSearch)
    Return SetError (1, 0, '')
    EndIf
    WEnd
    EndIf
    EndIf
    Else
    BlockInput (0)
    Return SetError (1, 0, '')
    EndIf
    Else
    BlockInput (0)
    Return SetError (1, 0, '')
    EndIf

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

    EndFunc

    [/autoit]

    Gruß
    Greenhorn

  • GeForce GTX260 Problem

    Danke, BugFix. Das baut mich ein wenig auf. ;)

    Die 150€ Kaufpreis bringen mich auch nicht um, aber es geht ums Prinzip, findet ihr nicht auch ?

    Ich lese mir gerade das hier durch, mal sehen was dabei herauskommt ...

    EDIT:
    Tja, sieht wohl schlecht aus, rein rechtlich gesehen ...

    Aber die Hoffnung stirbt zuletzt:

    Zitat von FormatC 29.04.2009 um 16:06:36


    Interessanterweise berichten viele, dass bei den GTX 260 / 285 mit der Zeit verschwindet. Meine 285er fiept auch nicht mehr hörbar. Wird wohl wirklich 'ne Grippe gewesen sein ;)

    Zitat von hotpizza 30.04.2009 um 15:08:53


    Kann ich bestätigen, bei meiner GTX 260 ist es auch nicht mehr so schlimm wie am Anfang.

    Quelle


    Gruß
    Greenhorn

  • GeForce GTX260 Problem

    Sehe ich genauso, aber ...

    War gestern bei meinem Hardware-Dealer und habe ihn darauf angesprochen. Er sagte, wenn die Grafikkarte ansonsten funktionieren würde, dann würde ich das Ding garantiert wieder zurückgeschickt bekommen, leider.

    Die Hersteller sehen dies eben nicht als Mangel an, da der Grafikchip mir ja gaaaaaaanz tolle Bilder und Frameraten liefert, und mehr braucht eine Grafikkarte nicht zu tun, rein rechtlich gesehen.
    Das man davon Kopfschmerzen bekommt oder irgendwann Amok läuft ist denen Wurscht.

    Und was spart man schon an ein paar Spannungswandlern in der Herstellung, 0,5 Cent oder gar 0,6 ?

    Wenn das nicht geändert wird, dann war das die letzte Grafikkarte die ich jemals gekauft habe !


    Gruß
    Greenhorn

  • GeForce GTX260 Problem

    Danke für die Antworten. :)

    Habe mich bei Gainward schlau gemacht: Händler ist erster Ansprechpartner.

    Ja, ich kann alles andere ausschließen, habe gestern extra noch ein 650W NT nachgekauft, obwohl das 550W NT eigentlich ausreichend war/ist.

    Ich habe einen Erfahrungsbericht gefunden: [Erfahrungsbericht] Gainward BLISS GeForce GTX 260 Golden Sample

    Demnach dürfte die Karte nicht fiepen, zumindest nicht im Desktopbetrieb.
    Außerdem baut Gainward nicht im Referenzdesign, jedenfalls nicht diese Karte.

    Scheint wirklich so als hätte ich eine Montagskarte erwischt ...
    Habe erstmal wieder meine alte 7900er eingebaut, die gibt keinen Mucks von sich (das waren noch Zeiten ...).

    Vllt werde ich das Fiepen mal aufzeichnen, dann könnt ihr es hören.
    Habe auf YouTube schon einige Videos gesehen, aber gegen meine Karte sind die noch leise.
    Wo war das noch, mom ... *Kram**Wurschtel* ...
    Hier und hier z.B.


    Lieben Gruß
    Greenhorn

  • GeForce GTX260 Problem

    Moinsen,

    ich habe mir letzte Woche eine GeForce GTX260 GS von Gainward zugelegt und Anfang dieser Woche eingebaut.

    Nun stellte ich beim Einschalten fest, daß die Kiste fiept und ab und an ein leises Rasseln von sich gibt.
    Der Übeltäter war schnell gefunden: Die Grafikkarte.

    Nach einigen Recherchen im Netz fand ich heraus, daß nVidia und ATI nur noch Billigst-Spannungswandler verarbeiten.
    Diese verursachen dieses Fiepsen und Surren/Rasseln.
    Jedoch berichten fast alle, daß dieses Phenomän nur im 3D Betrieb bei sehr hohen Frameraten auftritt.

    Bei mir ist dieses Geräusch jedoch schon im 2D Desktopbetrieb unerträglich und durchgehend, nicht nur gelegentlich.

    Hat hier jemand ähnliche Erfahrungen und ist das als Mangel zu werten, sodaß ein Umtausch gerechtfertigt wäre ?

    Soweit ich herausgefunden habe, wird das Fiepsen herstellerseitig NICHT als Mangel anerkannt, da die Grafikkarte ja ganz tolle Bilder bringt und Geräusche würden die Bildqualität ja nicht beeinflussen.

    Jetzt bin ich ein wenig ratlos, an wen sollte ich mich wenden, an den Händler oder gleich direkt den Hersteller ...


    Gruß
    Greenhorn

  • Irfan view thumbnails selektierte Datei(en) auslesen

    Zitat von hexer

    Leider zeigt das Info-Tool hier absolut nichts Verwertbares.

    ?(

    Also bei mir zeigt das Window-Info-Tool alles an, was ich brauche.
    Dieses Script funktioniert bei mir:

    Spoiler anzeigen
    [autoit]

    #cs
    >>>> Window <<<<
    Title: IrfanView Thumbnails
    Class: IrfanViewThumbnails
    Position: 320, 0
    Size: 1600, 1170
    Style: 0x14CF0000
    ExStyle: 0x00000100
    Handle: 0x000406CE

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

    >>>> Control <<<<
    Class: SysListView32
    Instance: 1
    ClassnameNN: SysListView321
    Advanced (Class): [CLASS:SysListView32; INSTANCE:1]
    ID: 999
    Text:
    Position: 322, 27
    Size: 1270, 1089
    ControlClick Coords: 343, 195
    Style: 0x5000C200
    ExStyle: 0x00020000
    Handle: 0x000A0700

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

    >>>> Mouse <<<<
    Position: 989, 272
    Cursor ID: 2
    Color: 0xC0C0C0

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

    >>>> StatusBar <<<<

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

    >>>> Visible Text <<<<
    D:\Eigene Dateien\Eigene Musik\Bob Marley - 1973 - catch a fire\
    #ce

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

    #include <Constants.au3>
    #include <Array.au3> ; zum debuggen ...

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

    Global Const $IDC_LV = 999

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

    Global $sTitleName = "IrfanView Thumbnails"

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

    Global $hwndIViewThumb

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

    Global $asItems
    Global $sPath

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

    If (not WinWaitActive ($sTitleName, "", 10)) Then

    MsgBox ( _
    BitOR ($MB_OK, $MB_ICONHAND), _
    "Fehler", _
    StringFormat ("%s konnte nicht gefunden werden.", $sTitleName) _
    )
    Else
    $hwndIViewThumb = WinGetHandle ($sTitleName)
    EndIf

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

    $sPath = WinGetText ($hwndIViewThumb)

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

    If ($sPath) Then

    MsgBox ( _
    BitOR ($MB_OK, $MB_ICONHAND), _
    "Pfad", _
    StringFormat ("Pfad der Dateien: %s.", $sPath) _
    )
    Else
    MsgBox ( _
    BitOR ($MB_OK, $MB_ICONHAND), _
    "Fehler", _
    StringFormat ("Kein Pfad gewählt.", "") _
    )
    EndIf

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

    $asItems = GetSelectedItems ( )

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

    If (IsArray ($asItems)) Then

    _ArrayDisplay ($asItems)
    Else
    MsgBox ( _
    BitOR ($MB_OK, $MB_ICONHAND), _
    "Fehler", _
    StringFormat ("Keine Elemente gewählt.", "") _
    )
    EndIf

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

    Func GetSelectedItems ( )

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

    Local $cnItemSel
    Local $sItemIdx

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

    $cnItemSel = ControlListView ($hwndIViewThumb, "", $IDC_LV, "GetSelectedCount")

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

    If ($cnItemSel) Then

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

    $sItemIdx = ControlListView ($hwndIViewThumb, "", $IDC_LV, "GetSelected", 1)

    $aItemIdx = StringSplit ($sItemIdx, "|")

    If (IsArray ($aItemIdx)) Then

    For $i = 1 To $aItemIdx[0]

    $aItemIdx[$i] = ControlListView ($hwndIViewThumb, "", $IDC_LV, "GetText", $aItemIdx[$i])
    Next

    Return $aItemIdx
    EndIf
    EndIf

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

    Return 0

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

    EndFunc
    ;

    [/autoit]


    Gruß
    Greenhorn

  • Ein Skript das in einer Internetseite alle fünf minuten aktualisieren es soll eine pause eingebaut werden!

    Also, das Beispiel von mir weiter oben funktioniert hervorragend, habe es ein wenig optimiert ...

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>

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

    Global $g_bAutoRefresh = FALSE

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

    Global $sUsername = 'Benutzername'
    Global $sPassword = 'Mein Passwort'

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

    Global $url = "http://www.jappy.de/"

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

    HotKeySet("{ESC}", "Terminate")
    HotKeySet ("{F9}", "AutoRefresh")
    ;~ HotKeySet ("{F10}", "AutoRefresh")

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

    Global $oIE = _IECreate($url)
    $hWND = _IEPropertyGet($oIE, "hwnd")
    WinSetState($hWND, "", @SW_MAXIMIZE)

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

    $oform = _IEFormGetCollection($oIE, 0)
    $oname = _IEFormElementGetObjByName($oform , "login[u]")
    $opasswd = _IEFormElementGetObjByName($oform , "login[p]")
    $obutton = _IEFormElementGetObjByName($oform , "Submit")
    $setname = _IEFormElementSetValue($oname, $sUsername)
    $setpasswd = _IEFormElementSetValue($opasswd, $sPassword)
    _IEAction($obutton, "click")

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

    Sleep(5000) ; Fünf Sekunden warten bis Login fertig ist

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

    AutoRefresh ( )

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

    While (WinExists ($hWND))
    Sleep(50)
    Wend

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

    Func AutoRefresh ( )

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

    Local $iCount
    Local $iSleep = 250


    If (not $g_bAutoRefresh) Then
    $g_bAutoRefresh = TRUE
    Else
    $g_bAutoRefresh = FALSE
    EndIf

    ConsoleWrite ("--- g_bAutoRefresh = "&$g_bAutoRefresh & @crlf)

    While ($g_bAutoRefresh)

    If ($iCount == 3000) Then

    $iCount = 0
    _IEAction($oIE, "refresh")
    EndIf

    $iCount += $iSleep
    Sleep($iSleep) ; 0,25 Sekunden
    Wend

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

    EndFunc

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

    Func Terminate ( )
    _IEQuit ($oIE)
    Exit 0
    EndFunc

    [/autoit]


    Gruß
    Greenhorn

  • Ein Skript das in einer Internetseite alle fünf minuten aktualisieren es soll eine pause eingebaut werden!

    So sollte es gehen ...

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>

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

    Global $g_bAutoRefresh = FALSE

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

    Global $sUsername = 'Benutzername'
    Global $sPassword = 'Mein Passwort'

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

    Global $url = "http://www.jappy.de/"

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

    HotKeySet("{ESC}", "Terminate")
    HotKeySet ("{F9}", "AutoRefresh")
    ;~ HotKeySet ("{F10}", "AutoRefresh")

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

    Global $oIE = _IECreate($url)
    $hWND = _IEPropertyGet($oIE, "hwnd")
    WinSetState($hWND, "", @SW_MAXIMIZE)

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

    $oform = _IEFormGetCollection($oIE, 0)
    $oname = _IEFormElementGetObjByName($oform , "login[u]")
    $opasswd = _IEFormElementGetObjByName($oform , "login[p]")
    $obutton = _IEFormElementGetObjByName($oform , "Submit")
    $setname = _IEFormElementSetValue($oname, $sUsername)
    $setpasswd = _IEFormElementSetValue($opasswd, $sPassword)
    _IEAction($obutton, "click")

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

    AutoRefresh ( )

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

    While ($oIE)
    Sleep(50)
    Wend

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

    Func AutoRefresh ( )

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

    If (not $g_bAutoRefresh) Then
    $g_bAutoRefresh = TRUE
    Else
    $g_bAutoRefresh = FALSE
    EndIf

    ConsoleWrite ("--- g_bAutoRefresh = "&$g_bAutoRefresh & @crlf)

    While ($g_bAutoRefresh)

    _IEAction($oIE, "refresh")

    Sleep(1000) ; 1 Sekunde
    Wend

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

    EndFunc

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

    Func Terminate ( )
    _IEQuit ($oIE)
    Exit 0
    EndFunc

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


    Gruß

  • Ein Skript das in einer Internetseite alle fünf minuten aktualisieren es soll eine pause eingebaut werden!

    Baue das hier mal ein ...

    Spoiler anzeigen
    [autoit]

    Global $g_bAutoRefresh = FALSE

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

    HotKeySet ("{F9}", "AutoRefresh")

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

    Func AutoRefresh ( )

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

    If (not $g_bAutoRefresh) Then
    $g_bAutoRefresh = TRUE
    Else
    $g_bAutoRefresh = FALSE
    EndIf

    ConsoleWrite ("--- g_bAutoRefresh = "&$g_bAutoRefresh & @crlf)

    While ($g_bAutoRefresh)

    _IEAction($oIE, "refresh")

    Sleep(1000) ; 1 Sekunde
    Wend

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

    EndFunc

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

  • Memory reading (bitte mal rein schauen)

    [offtopic]

    Zitat von Andy

    Falls du irgendwann mal in der Lage bist, dir mit "ehrlicher Arbeit" ordentlich Geld zu verdienen, und dann kommt jemand und nimmt es dir einfach ab, dann wünsch ich dir jemanden der dir ins Gesicht lacht und auch meint: "Seh das doch nicht so eng! Geh doch einfach den nächsten Monat arbeiten, dann hast du doch wieder welches...."


    Komisch, geht mir schon seit über 20 Jahren so ... :rolleyes::D
    [offtopic]

  • Dezimal in Binär umwandeln _DezToBin

    Zitat

    Ihr seid doch alle Muh-Kühe..


    Du weißt doch: "Eine Kuh macht Muh und viele Kühe machen Mühe" :D

    Habe mal so etwas ähnliches gemacht, nur das das Ergebnis als String zurückgegeben wird.
    Funktioniert also ähnlich wie Hex ...

    Spoiler anzeigen
    [autoit]

    ;««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
    ; BitString.au3 -- Gibt den Wert eines Integers als String im Dual-Zahlensystem zurück
    ;««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««

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

    $test = 0xf1

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

    ConsoleWrite ("--- "&BitString ($test) & @crlf)

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

    Func BitString ($value)

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

    Local $sBinary = ''
    Local $ii = 0


    For $i = 31 To 0 Step - 1

    If (BitShift (BitShift ($value, -$i), $i + $ii)) Then
    $sBinary = '1' & $sBinary
    Else
    $sBinary = '0' & $sBinary
    EndIf

    $ii += 1
    Next

    Return $sBinary

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

    EndFunc

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

    Exit (0)

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


    Gruß
    Greenhorn