Beiträge von MrB

  • Anwendungspfad herausfinden

    Ja stimmt, da steht einiges. Ist allerdings HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\MUICache

    Kann mir einer mal ne kurze Einweisung geben wie ich da jetzt einen Pfad raus bekomme. Der Name der EXE ist bekannt. Ich glaub ich kapier da nicht wirklich. Probier aber auch parallel.

  • Anwendungspfad herausfinden

    Hmm nicht das was ich meine. Die Exe läuft nicht !

    Stellt euch eine GUI vor mit einem Button "Word starten". Diese GUI läuft auf einem fremden Rechner der Office nicht im Standard Ordner hat.

    Wie finde ich den Installationspfad von Word heraus ?

  • Anwendungspfad herausfinden

    Und schon das nächste Problemchen.

    Ich möchte gerne eine Anwendung starten (nehmen wir mal Word). Nur weis ich nicht wie der Pfad ist, da der ja variabel sein kann. Wie finde ich den raus ? Vielleicht über die Registrierung?

    Nur mal ein Tip bitte, wie man das am Besten löst.

  • GUICtrlCreatePic Problem

    Sers zusammen,

    Hab da mal wieder ein Problem. Hab folgenden, ganz einfachen, Code :

    [autoit]

    #include <GUIConstantsEx.au3>
    #include <GDIPlus.au3>

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

    $gui = GUICreate("test", 1100, 900)
    $path = @AppDataDir & "\Pics\sysinfo.jpg"
    $x = x()
    $y = y()
    $pic = GUICtrlCreatePic("" & $path, 260, 10, $x, $y)

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

    GUISetState()
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    WEnd

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

    Func x()
    _GDIPlus_Startup()
    $hImage = _GDIPlus_ImageLoadFromFile($path)
    $x = _GDIPlus_ImageGetWidth($hImage)
    _GDIPlus_Shutdown()
    Return $x
    EndFunc ;==>x

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

    Func y()
    _GDIPlus_Startup()
    $hImage = _GDIPlus_ImageLoadFromFile($path)
    $y = _GDIPlus_ImageGetHeight($hImage)
    _GDIPlus_Shutdown()
    Return $y
    EndFunc ;==>y

    [/autoit]

    Wie schaffe ich das das Bild wieder frei gegeben wird, da

    [autoit]

    $pic = GUICtrlCreatePic("" & $path, 260, 10, $x, $y)

    [/autoit]

    nicht funktioniert (gibt 0 zurück). Wenn ich einen anderen Pfad nehme und

    [autoit]

    $pic = GUICtrlCreatePic("" & $path2, 260, 10, $x, $y)

    [/autoit]

    benutze klappt´s ohne Probleme.

    Weis nicht wirklich weiter. Hab mich auch noch nicht intensiv mit GDIPlus beschäftigt, finde aber keine andere Möglichkeit die Breite und Höhe eines Bildes zu bestimmen. Die ExtProp.au3 liefert immer 0 zurück. Vielleicht liegt´s ja an Windows 7 Ultimate x64

    Hat da einer eine Idee ?

  • ListView oder _StringEncrypt Problem

    Naja, mit der ini kann man zwar nicht viel anfangen, aber bitte:

    Kompletter Code wäre ein bisschen viel, aber selbst wenn ichs komplett abspecke (nur mini Gui mit Input und Listview) ist das Problem da.

    P.S:.: Die komplette Ini funktioniert nicht , Forum streikt. Also nur ein Ausschnitt

  • ListView oder _StringEncrypt Problem

    Tach zusammen,

    Hab mal wieder ein Prob. Und zwar fülle ich ein

    [autoit]

    GUICtrlCreateListView

    [/autoit]

    mit Daten aus einer Datei die ich ich vorher mit

    [autoit]

    _StringEncrypt

    [/autoit]

    rein geschrieben habe. Klappt auch wunderbar bis ich zum fünften Eintrag komme. Wenn ich da in der vierten Spalte mehr wie 4 Zeichen eingebe crasht das Script mit folgender Meldung:

    Zitat

    GUICtrlCreateListViewItem($var4[$i][1] & "|" & _StringEncrypt(0, $var[$i][1], $rata, 6) & "|" & _StringEncrypt(0, $var2[$i][1], $rata, 6) & "|" & _StringEncrypt(0, $var3[$i][1], $rata, 6), $listview)
    GUICtrlCreateListViewItem($var4[$i][1] & "|" & _StringEncrypt(0, $var[$i][1], $rata, 6) & "|" & _StringEncrypt(0, $var2[$i][1], $rata, 6) & "|" & _StringEncrypt(0, ^ ERROR

    Rein kommen die Daten so:

    [autoit]


    $zu_verschlusseln1 = GUICtrlRead($input1)
    $verschlusselt1 = _StringEncrypt(1, $zu_verschlusseln1, $rata, 6)
    IniWrite(@SystemDir & "\db.asa", "data", "name " & $anzahl, "" & $verschlusselt1)

    [/autoit]


    Nicht schön, aber selten ;)

    Füllen tu (ach ich find das Wort einfach schön) ich das ListView so:

    [autoit]


    Func _listview()
    $listview = GUICtrlCreateListView("Nr.|Benutzername|Link|Sonstiges", 500, 20, 500, 460, BitOR($LVS_EX_HEADERDRAGDROP, $LVS_EX_GRIDLINES))
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 35)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 90)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 150)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 225)

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

    $var = IniReadSection(@SystemDir & "\db.asa", "data")
    $var2 = IniReadSection(@SystemDir & "\db.asa", "link")
    $var3 = IniReadSection(@SystemDir & "\db.asa", "sonst")
    $var4 = IniReadSection(@SystemDir & "\db.asa", "nr")
    If @error Then
    MsgBox(4096, "", "Es ist ein Fehler aufgetreten. Warscheinlich keine Stamm-Datei vorhanden bzw. keine Datensätze eingegeben.")
    Else
    $anzahl = IniRead(@SystemDir & "\db.asa", "anzahl", "anzahl", "keine")
    For $i = 1 To $var[0][0]
    GUICtrlCreateListViewItem($var4[$i][1] & "|" & _StringEncrypt(0, $var[$i][1], $rata, 6) & "|" & _StringEncrypt(0, $var2[$i][1], $rata, 6) & "|" & _StringEncrypt(0, $var3[$i][1], $rata, 6), $listview)
    Next
    EndIf

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

    EndFunc ;==>_listview

    [/autoit]

    Hat einer eine Idee woran das liegen könnte ? Ich nämlich nicht

  • _INetSmtpMail Probelm

    Hab jetzt auch mal andere SMTP´s probiert googlemail,1&1 und web.de . Immer Errorcode 2. Kann mir einer sagen Was das genau heist:

    Zitat

    @ERROR = 2 - Kann TCP nicht starten

    So langsam hab ich keine Ideen mehr. Angepingt hab ich auch schon. Klappt bei allen wunderbar

  • _INetSmtpMail Probelm

    Thx euch beiden.

    Zitat

    Wieso loggst du dich bei AOL mit einer db.com-Adresse ein?

    Habs dann auch mal mit einer AOL Adresse probiert. ErrorCode 2

    Zitat

    was ich noch vergessen habe
    du musst natürlich beim jewailgen smtp server registriert sein

    Schon klar :-). Bin ich auch. Noch irgendwelche Ideen ?

    P.S.: Benutze Win 7 64bit. Vielleicht deswegen ?

  • _INetSmtpMail Probelm

    Also langsam bin ich am verzweifeln.

    Nochmal, so sieht´s bei mir aus :

    [autoit]

    Func email()
    ;~ _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    $s_SmtpServer = "smtp.de.aol.com"
    $s_FromName = "****"
    $s_FromAddress = "****@db.com"
    $s_ToAddress = "****@aol.com"
    $s_Subject = "****"
    $as_Body = "***"
    $s_AttachFiles = ""
    $s_CcAddress = ""
    $s_BccAddress = ""
    $s_Importance = "Normal"
    $s_Username = "****"
    $s_Password = "****"
    $IPPort = 587
    $ssl = 0

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

    $Response = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress , $s_BccAddress , $s_Importance, $s_Username, $s_Password, $IPPort, $ssl)

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

    $err = @error

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

    If $Response = 1 Then
    MsgBox(0, "Success!", "Mail sent")
    Else
    MsgBox(0, "Error!", "Mail failed with error code " & $err)
    EndIf
    EndFunc ;==>email

    [/autoit]

    Error gibt 2 zurück
    Die Funktion folgendes :

    Zitat

    ### COM Error ! Number: 80020009 ScriptLine: 90 Description: Der Transport konnte keine Verbindung zum Server herstellen.

    Script Line 90 der Funktion (fängt bei 90 an):

    [autoit]

    $objEmail.Send
    If @error Then
    SetError(2)
    Return $oMyRet[1]
    EndIf
    $objEmail = ""

    [/autoit]

    Bin am Ende und weis nicht weiter. Vielleicht hat ja einer ne Idee. Ach ja, FW ist aus.

  • _INetSmtpMail Probelm

    THX Sprenger120,

    Probiert aber naja nächstes Problem was garantiert an mir liegt ^^

    Ruf die so auf (includet ist sie):

    [autoit]


    Func email()
    $s_SmtpServer = "smtp.web.de"
    $s_FromName = "test"
    $s_FromAddress = "test@db.com"
    $s_ToAddress = "test@aol.com"
    $s_Subject = "test"
    $s_Username = "test"
    $s_Password = "test"
    $as_Body = "test"
    $Response = _INetSmtpMailCom ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_Username, $s_Password)
    $err = @error
    If $Response = 1 Then
    MsgBox(0, "Success!", "Mail sent")
    Else
    MsgBox(0, "Error!", "Mail failed with error code " & $err)
    EndIf
    EndFunc

    [/autoit]

    Und bekomme ErrorCode 1. Wenn ich Username und Password auf "" setze dann kommt Errorcode 2. Was mache ich falsch ?

  • _INetSmtpMail Probelm

    Moin zusammen,

    Ich möchte mit AutoIt eine Mail schicken und benutze dazu die Funktion:

    [autoit]

    _INetSmtpMail

    [/autoit]

    Sieht bei mir so aus :

    [autoit]

    Func email()
    $s_SmtpServer = "smtp.1und1.de"
    $s_FromName = "test"
    $s_FromAddress = "test@test.com"
    $s_ToAddress = "test@aol.com"
    $s_Subject = "test"
    Dim $as_Body[2]
    $as_Body[0] = "test1"
    $as_Body[1] = "test2"
    $Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
    $err = @error
    If $Response = 1 Then
    MsgBox(0, "Success!", "E-Mail erfolgreich gesendet")
    Else
    MsgBox(0, "Error!", "E-Mail nicht erfolgreich gesendet. Error Code :" & $err)
    EndIf
    EndFunc

    [/autoit]

    Jetzt bekomme ich den ErrorCode 52 angezeigt. Welches ja heist :

    Zitat

    Funktion _INetSmtpMail@ERROR = 5x - Kann keine SMTP Session eröffnen. x zeigt die Indexnummer des letzen Befehls welcher an den SMTP Server übertragen wurde.

    Wenn ich in der Funktion nach schaue würde ich sagen das das dieser Bereich ist wo der Fehler auftritt

    [autoit]


    ; send header
    For $i_Count = 1 To UBound($s_Send) - 2
    If _SmtpSend($v_Socket, $s_Send[$i_Count], $s_ReplyCode[$i_Count], $b_trace) Then
    SetError(50 + $i_Count)
    Return 0
    EndIf
    Next

    [/autoit]

    Nur finde ich jetzt nicht genau raus was es ist. Sehe ich da irgendwas total falsch oder ists wieder so ein dummer kleiner Fehler ? Da reichen meine Kenntnisse nicht aus. Kann mir da einer helfen?

    P.S.: Hab gerade mal noch andere SMTP Server getestet. GMX = Errorcode 51, google = Errorcode 50

  • Listviewitem Hilfe

    Hmmm, schon klar das mit

    [autoit]

    WinSetTrans

    [/autoit]

    . Nur wird damit alles transparent. Ich möchte aber nur den Hintergrund und keine Labels Edits usw. transparent haben

    Zu dem Link. Ok auslesen ist ok ich hab nur keinen Plan wie es an den Drucker kommt. Egal werd mal noch suchen.

    Dank Dir

  • Listviewitem Hilfe

    Muss dann doch nochmal auf machen.

    Gibt es irgendeine Möglichkeit das Listview komplett aus zu drucken ?? Am Besten auch eine die auch ich verstehe :)

    Ähm, vielleicht weis einer noch wie man den Hintergrund der GUI transparent bekommt (einstellbar). Ich weis das es geht, hab das Tool aber auf der Firma wo ich das mal gemacht hab (lange her)

  • Listviewitem Hilfe

    War doch einer schneller :)

    Voll am Schlauch gestanden. Bin noch von selber drauf gekommen.

    Habs so gelöst:

    [autoit]

    Func _listview()
    $listview = GUICtrlCreateListView ("Nr. |Benutzername |Link |Sonstiges ",500,20,500,500)
    $list_nr = 0
    $var = IniReadSection("c:\db.asa","data")
    $var2 = IniReadSection("c:\db.asa","link")
    $var3 = IniReadSection("c:\db.asa","sonst")
    For $i = 1 to $var[0][0]
    $list_nr = $list_nr + 1
    GUICtrlCreateListViewItem($list_nr & "|" &_StringEncrypt(0, $var[$i][1], $rata, 6) & "|"& _StringEncrypt(0, $var2[$i][1], $rata, 6) & "|"& _StringEncrypt(0, $var3[$i][1], $rata, 6),$listview)
    Next
    EndFunc

    [/autoit]

    Nur so zum testen gemacht. Sollte ja dem entsprechen was du gemeint hast Cartan12 oder :)

    Dank dir auf jeden Fall für deine schnelle Antwort

  • Listviewitem Hilfe

    Hallo zusammen,

    Packe nach langem nochmal Auto It aus und hab direkt bei der Planung schon ein Problem. Ich möchte ein Listview benutzen welches Datensätze aus einer txt Datei ausgibt. Da die Anzahl der Datensätze variable ist, soll immer alles ausgeben werden. Aufbau der txt Datei ist Folgender:

    Das Listview soll so aussehen:

    [autoit]

    $listview = GUICtrlCreateListView ("1 |2 |3 ",500,20,500,500)

    [/autoit]

    So und jetzt mein eigentliches Problem. Jetzt sollen automatisch ListViewItems generiert werden und zwar so viele wie die Anzahl hergibt. Also hier 34.

    [autoit]

    GUICtrlCreateListViewItem("Section 1 n1 |Section 2 n1|Section 3 n1",$listview)

    [/autoit]

    also so

    [autoit]

    GUICtrlCreateListViewItem("a |a |a ",$listview)

    [/autoit]

    Hoffe man versteht was ich meine.

    Also die Frage mal ganz konkret: Wie lese ich alle Daten aus der ini aus und wie generier ich die ListViewItems daraus?

    Mehr Code geht nicht da ich noch nichts habe :-(. Will erst das Problem lösen. habs schonmal irgendwo gesehen, finde es aber zum Verrecken nicht mehr.

    Hoffe einer erbarmt sich