Beiträge von johny1099

Ich habe in der Zwischenzeit einges ausprobiert, aber ich habe noch nicht das gewünschte Ergebnis erreicht.

Ich möchte eine Listview erstellen mit 2 Spalten. In der ersten Spalte soll nur Text stehen. In der 2 Spalte soll dann nur ein entsprechendes Icon (zentriert) angezeigt werden.
Vielleicht kann mir jemand ein Beispiel einfügen wo ich es besser nachvollziehen kann.

#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>

Dim $exStyles = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES)

$hGUI = GUICreate("Image to _GUIImageList", 400, 300,300,200)

$hListView = GUICtrlCreateListView("", 10, 30, 350, 200)
_GUICtrlListView_SetExtendedListViewStyle($hListView, $exStyles)

$hImage = _GUIImageList_Create(16,16,0,1)

_GUIImageList_AddIcon($hImage,@SystemDir&"\shell32.dll",10)
_GUIImageList_AddIcon($hImage,@SystemDir&"\shell32.dll",13 )
_GUIImageList_AddIcon($hImage,@SystemDir&"\shell32.dll",24 )

_GUICtrlListView_SetImageList($hListView, $hImage, 1)

_GUICtrlListView_AddColumn($hListView, "Spalte 1 ", 150)
_GUICtrlListView_AddColumn($hListView, "Spalte 2", 60,2)

_GUICtrlListView_AddItem($hListView, "Zeile 1 Spalte 1")
_GUICtrlListView_AddSubItem($hListView,0, "", 1, 1)

GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()

Select
Case $msg = $GUI_EVENT_CLOSE()
Exit

EndSelect
WEnd

Gruss
johny

Hallo zusammen

ich versuche ein Icon in einem ListView in eine bestimmte Spalte 2 einzufügen. Leider komme ich nicht weiter. Er trägt das Icon immer in Spalte 1 ein.

#include <GUIConstantsEx.au3>

Dim $gui,$list_view

$gui = GuiCreate('',600,400)

$h_list_view = GUICtrlCreateListView('Spalte 1 | Spalte 2',50,100,500,200)
$list_view_item_1 = GUICtrlCreateListViewItem('Eintrag Zeile 1|', $h_list_view)
GUICtrlSetImage($list_view_item_1, "shell32.dll", 22)

$list_view_item_2 = GUICtrlCreateListViewItem('Eintrag Zeile 2|' , $h_list_view)

GUISetState(@SW_SHOW)

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

Gruss
johny

Hallo zusammen

vielen Dank für die Untestützung. ==> Funktiniert einwandfrei

MfG
johny

Hallo alpines

ich habe doch eine Schleife erstellt wo ich die Bemerkungszeile einfügen möchte.

For $i = 1 to $arr_back[0]
$count = $i + 1
$arr_insert = _ArrayInsert($arr_back,$count,"Dies ist die Bemerkung zu Zeile" & $i)
ReDim $arr_back[0]
Next

Hallo zusammen
ich versuche in eine bestehende Datei noch zusätzlich Zeilen einzutragen.
Nach jeder Zeile in der Datei soll zusätzlich noch eine Bemerkungszeile hinzugefügt werden.

#include <Array.au3>
#include <File.au3>
Dim $arr_back,$count,$arr_insert

If _FilereadtoArray("C:\Windows\Temp\output.log",$arr_back) Then

;Inhalt von der Datei C:\Windows\Temp\output.log

;~ Dies ist Zeile 1
;~ Dies ist Zeile 2
;~ Dies ist Zeile 3

$count = 1
For $i = 1 to $arr_back[0]
$count = $i + 1
$arr_insert = _ArrayInsert($arr_back,$count,"Dies ist die Bemerkung zu Zeile" & $i)
ReDim $arr_back[0]
Next
Else
MsgBox(0,"","Error in FileReadtoArray")
EndIf

_ArrayDisplay($arr_back)
_FileWriteFromArray("C:\Windows\Temp\output_new.log",$arr_back,1)

Er schreibt die Bemerkungszeilen nicht so wie ich das gerne hätte. Es werden alle direkt geschrieben.

Mit freundlichem Gruss
johny

Hallo i2c

es funktioniert jetzt perfekt. Vielen Dank für die schnelle und kompetente Hilfe.

Gruss
johny

Hallo ic2
ich habe jetzt folgendes Scripts ausgeführt. Der Zeilenabstand ist jedoch immer noch der gleiche wie vorher.

Gruss

johny

Hallo zusammen

Ich habe eine Gui mit einem ListView und einem List Control. Hierbei habe ich festgestellt dass der Zeilenabstand beim Listview Control nicht identisch ist mit dem List Control. Gibt es eine Möglichkeit beim ListView Control den Zeilenabstand zu verkleinern, sodass dieser so aussieht wie beim List Control.

#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include 'WindowsConstants.au3'
#include 'ListBoxConstants.au3'

GUICreate("", 700, 300, 100, 100)
$label_listview = GUICtrlCreateLabel("List View Control",100,20,200,25)
GUICtrlSetFont(-1, 12, 600, 0, "MS Sans Serif")

$label_list = GUICtrlCreateLabel("List Control",470,20,100,25)
GUICtrlSetFont(-1, 12, 600, 0, "MS Sans Serif")

$listview = GUICtrlCreateListView(" ", 25, 50, 300, 100,BitOR($WS_BORDER,$LVS_NOCOLUMNHEADER,$LVS_EX_FULLROWSELECT,$LVS_SINGLESEL ))

GUICtrlCreateListViewItem("Zeile 1 Ausgabe ==> OK", $listview)
GUICtrlCreateListViewItem("Zeile 2 Ausgabe ==> OK", $listview)
GUICtrlCreateListViewItem("Zeile 3 Ausgabe ==> OK", $listview)
GUICtrlSetFont($listview, 9, 600, 0, "MS Sans Serif")
GUICtrlSendMsg($listview, $LVM_SETCOLUMNWIDTH, 0, $LVSCW_AUTOSIZE_USEHEADER)

$list = GUICtrlCreateList("", 380,50, 300, 100)
GUICtrlSetData($list,"Zeile 1 Ausgabe ==> OK")
GUICtrlSetData($list,"Zeile 2 Ausgabe ==> OK")
GUICtrlSetData($list,"Zeile 3 Ausgabe ==> OK")
GUICtrlSetFont($list, 9, 600, 0, "MS Sans Serif")

$button = GUICtrlCreateButton("Exit",550,250,100,30,$WS_EX_DLGMODALFRAME)

GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Select
Case $msg = $button
Exit
EndSelect
WEnd

Gruss
johny

Hallo water

danke nochmals für die Hilfe.

Gruss
johny

Hallo water

jetzt funktioniert es korrekt. Wenn ich das richtig verstanden habe geht das nur mit GUICtrlCreateListview??

Ich habe die Spaltenüberschrift noch mit dem Parameter $LVS_NOCOLUMNHEADER entfernt.

Vielen Dank für die schnelle Hilfe

Gruss

johny

Hallo water

ich habe die Zeile eingefügt. Jetzt ist der gesamte Hintergrund des List Element rot. Ich möchte aber nur dass die Zeile 2 den roten Hintergrund erhält.

#include <GUIConstantsEx.au3>
Dim $gui_1,$list_1
GUICreate("",350,200,500,400)
$list_1 = GUICtrlCreateList("",10,10,300,100)
GUICtrlSetData($list_1,"Zeile 1 Ausgabe ==> OK")
GUICtrlSetData($list_1,"Zeile 2 Ausgabe ==> Fehler")
GUICtrlSetBkColor(-1, 0xff0000) ;red
GUICtrlSetData($list_1,"Zeile 3 Ausgabe ==> OK")
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

Hallo zusammen

Ich habe eine Gui mit einem GuiCtrlCreateList erstellt. Die Daten werden mit GUICtrlSetData gefüllt.

Gibt es eine Möglichkeit bei einzelnen Zeilen die Hintergrundfarbe auf ROT zu ändern. (zb. Zeile 2)

#include <GUIConstantsEx.au3>
Dim $gui_1,$list_1
GUICreate("",350,200,500,400)
$list_1 = GUICtrlCreateList("",10,10,300,100)
GUICtrlSetData($list_1,"Zeile 1 Ausgabe ==> OK")
GUICtrlSetData($list_1,"Zeile 2 Ausgabe ==> Fehler")
GUICtrlSetData($list_1,"Zeile 3 Ausgabe ==> OK")
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

Hallo Jonas

der Username,Passwort,Port und Adresse sind korrekt. (im Beispiel mit der CMD SHELL ftp -i -s:ftp.txt benutze ich den gleichen Werte und da funktioniert es korrekt)

MfG
johny

anbei mein Beispiel

#include <FTPEx.au3>
#RequireAdmin
Dim $l_AccessType = 0
Dim $s_ProxyName = 'proxy-education.com:2121'
Dim $i_passive =''
Dim $serveradresse = "ftp.microsoft.com"
Dim $username = "username:anonymous"
Dim $password = "password:mike.mustermann@education.com"
FtpSetProxy(2,$s_ProxyName,$username,$password)
$open = _FTP_Open("Microsoft Download",$INTERNET_OPEN_TYPE_PROXY ,$s_ProxyName)
ConsoleWrite($open & @CRLF)
;Result von $open ===> 0x00CC0004
$connection = _FTP_Connect($open, $serveradresse, $username,$password,1,2121)
ConsoleWrite($connection)
;Result von $connection ===> 0

Hallo zusammen

ich versuche mit AutoIt eine Datei von einem FTP Server zu downloaden.

Ich benutze Windows 7 und habe bereits mit dem internen FTP Client in einer CMD Shell erfolgreich connecten können.

Folgender Befehl wird ausgeführt.

1. cmd ausführen

2. ftp -i -s:ftp.txt

3. Inhalt von ftp.txt

open proxy-education.com 2121
username:anonymous@ftp.microsoft.com
password:mike.mustermann@education.com
cd /ResKit/nt4/x86
binary
get dateiname

Dies funktioniert korrrekt.

Ich habe im Autoit schon die Funkionen FTP_Open und FTP Connect ausprobiert aber ohne Erfolg.

Kann mir bitte jemand ein Beispiel geben. wie ich die erforderlichen Parameter bei FTP Open und FTP Connect eingeben muss.

Gruss

johny

Hallo misterspeed

vielen Dank für die schnelle Beantwortung meiner Frage.

Es funktiniert genau so wie ich es benötige.

MfG
johny

Hallo zuammen

ich habe von UEZ ein Script gefunden welches einen Dienst auf einem Remote Computer stoppt.

Kann mir bitte jemand weiterhelfen um in dem Script vorher zu prüfen welcher Status der Service (gestartet) hat.

Wenn der Service nicht gestartet ist soll das Script den Service starten.

;Coded by UEZ 2009
#AutoIt3Wrapper_Change2CUI=y
#AutoIt3Wrapper_UseUpx=n
$oMyError = ObjEvent("AutoIt.Error", "oMyError") ; Install a custom error handler
Global $ip = "localhost"
If $CmdLine[0] > 0 Then $ip = $CmdLine[1]
$stop_srv = "RemoteRegistry"
If Stop_Service($ip, $stop_srv) Then
MsgBox(0, "Stop Service", "Service " & $stop_srv & " stopped properly on " & $ip)
Else
MsgBox(16, "Error", "Error")
EndIf
Func Stop_Service($srv, $service, $sUsr = "", $sPass = "")
Local $colItems, $colItem, $ping, $objWMILocator, $objWMIService
$ping = Ping($srv)
If $ping Then
$objWMILocator = ObjCreate("WbemScripting.SWbemLocator")
If @error Then Return SetError(3, 0, 0)
$objWMIService = $objWMILocator.ConnectServer($srv, "\root\cimv2", $sUsr, $sPass, "", "", 128)
If @error Then Return SetError(4, 0, 0)
$colItems = $objWMIService.ExecQuery("Select * From Win32_Service Where Name='" & $service & "'")
If IsObj($colItems) Then
For $objItem In $colItems
$objItem.StopService()
Next
Return 1
Else
Return SetError(1, 0, 0)
EndIf
EndIf
Return SetError(2, 0, 0)
EndFunc
Func oMyError()
Msgbox(0,"AutoItCOM Test","We intercepted a COM Error !" & @CRLF & @CRLF & _
"err.description is: " & @TAB & $oMyError.Description & @CRLF & _
"err.windescription:" & @TAB & $oMyError.WinDescription & @CRLF & _
"err.number is: " & @TAB & Hex($oMyError.Number, & @CRLF & _
"err.lastdllerror is: " & @TAB & $oMyError.LastDllError & @CRLF & _
"err.scriptline is: " & @TAB & $oMyError.Scriptline & @CRLF & _
"err.source is: " & @TAB & $oMyError.Source & @CRLF & _
"err.helpfile is: " & @TAB & $oMyError.Helpfile & @CRLF & _
"err.helpcontext is: " & @TAB & $oMyError.HelpContext _
)
EndFunc

ich habe jetzt folgendes versucht:

$tmp = DllCall("C:\TEST\ClassLibrary1.dll","void:cdecl","Messagebox")
MsgBox(0,@error,$tmp)

Es funktioniert noch nicht.

Gruss
johny

ich habe double ersetzt mit str
Leider funktioniert das auch nicht.

Gruss
johny

Hallo zusammen

ich versuche gerade eine mit Visual Basic 2012 (x86 Express Version) erstellte DLL von AutoIT aufzurufen.
Leider habe ich in diesem Bereich noch keinerlei Erfahrung.

Wenn ich die DLL aufrufe dann steht in @error 3.

Dies ist der Inhalt von der DLL Datei:

Public Class Class1
	Public Function Messagebox()
    	MsgBox("Only a Test")
	End Function
End Class

Dies ist der Inhalt der AutoIt Datei

$tmp = DllCall("C:\TEST\ClassLibrary1.dll","double","Messagebox")
MsgBox(0,@error,$tmp)

Wie kann ich die Messagebox von Visual Basic ausführen?

Gruss
johny