Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Speichern von Fensterpositionen in eine INI Datei und wieder auslesen

Frage Entwicklung VB for Applications

Mitglied: jogi1989

jogi1989 (Level 1) - Jetzt verbinden

28.03.2013 um 14:38 Uhr, 2924 Aufrufe, 3 Kommentare

.

Hallo Zusammen,

Ich habe als völliger Programmier Neuling folgendes Prolem.
Ich möchte in einem VBS Script folgenden Code einfügen, um die Festerposition nach dem schließen zu speichern und beim nächste starten soll es sich die Position aus einer INI Datei holen.


Ist dieser Code denn noch VBS, oder als welche Datei muss der Code gespeichert werden?
Wie gesagt, ich habe von Programmieren überhaupt keine Ahnung, aber ich versuche mein bestes um es zu lernen
und hoffe Ihr könnt mir dabei behilflich sein.


Hier der Quellcode:
01.
'Beispiel : INI-Dateien schreiben und lesen. Letzte Fensterposition beim 
02.
'           beenden des Programms speichern, und bei einem Neu- 
03.
'           start des Programms an dieser Fensterposition wieder posi- 
04.
'           tionieren. 
05.
 
06.
Private Declare Function WritePrivateProfileString Lib "kernel32" _ 
07.
                                Alias "WritePrivateProfileStringA" _ 
08.
                                (ByVal lpApplicationName As String, _ 
09.
                                ByVal lpKeyName As Any, _ 
10.
                                ByVal lpString As Any, _ 
11.
                                ByVal lpFileName As String) _ 
12.
                                As Long 
13.
 
14.
Private Declare Function GetPrivateProfileString Lib "kernel32" _ 
15.
                                Alias "GetPrivateProfileStringA" _ 
16.
                                (ByVal lpApplicationName As String, _ 
17.
                                ByVal lpKeyName As Any, _ 
18.
                                ByVal lpDefault As String, _ 
19.
                                ByVal lpReturnedString As String, _ 
20.
                                ByVal nSize As Long, _ 
21.
                                ByVal lpFileName As String) _ 
22.
                                As Long 
23.
 
24.
Private Sub Form_Load() 
25.
    Dim sRet As String 
26.
    Dim lRet As Long 
27.
 
28.
    sRet = String$(60, 0) 
29.
    lRet = GetPrivateProfileString("Fensterposition", "Links", "0", sRet, 60, App.Path & "\" & App.EXEName & ".ini") 
30.
    If lRet > 0 Then 
31.
        sRet = Left$(sRet, lRet) 
32.
        If IsNumeric(sRet) Then 
33.
            Form1.Left = CInt(sRet) 
34.
        End If 
35.
        Else 
36.
            MsgBox "Fehler.", "Fehler..." 
37.
    End If 
38.
     
39.
    sRet = String$(60, 0) 
40.
    lRet = GetPrivateProfileString("Fensterposition", "Oben", "0", sRet, 60, App.Path & "\" & App.EXEName & ".ini") 
41.
    If lRet > 0 Then 
42.
        sRet = Left$(sRet, lRet) 
43.
        If IsNumeric(sRet) Then 
44.
            Form1.Top = CInt(sRet) 
45.
        End If 
46.
        Else 
47.
            MsgBox "Fehler.", "Fehler..." 
48.
    End If 
49.
End Sub 
50.
 
51.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
52.
    If WritePrivateProfileString("Fensterposition", "Links", Format$(Me.Left), App.Path & "\" & App.EXEName & ".ini") <= 0 Then 
53.
        MsgBox "Fehler.", "Fehler..." 
54.
    End If 
55.
    If WritePrivateProfileString("Fensterposition", "Oben", Format$(Me.Top), App.Path & "\" & App.EXEName & ".ini") <= 0 Then 
56.
        MsgBox "Fehler.", , "Fehler..." 
57.
    End If 
58.
End Sub 
59.
 
60.
Private Sub Command1_Click() 
61.
    Unload Me 
62.
    End 
63.
End Sub
Mitglied: rubberman
28.03.2013 um 22:50 Uhr
Hallo jogi1989.

In VBS aka VBScript kannst du keine WINAPIs deklarieren und somit auch nicht mit ihnen arbeiten. Außerdem hat VBScript auch kein Fenster, dessen Position gesichert werden könnte!

Der Code scheint VB6 zu sein und lässt sich sicher mit einem alten VB6 Compiler kompilieren (so wahrscheinlich noch nicht, da unvollständig). Ggf. könnte man ihn auch in VBA übertragen und in MS Office Dateien nutzen.

WINAPI Funktionen kannst du in den meisten Programmiersprachen nutzen. Da du aber, wie du schreibst, keine Programmiererfahrungen hast, ist es kaum möglich dir zu irgend etwas zu raten. Was willst du damit eigentlich erreichen?

Grüße
rubberman
Bitte warten ..
Mitglied: jogi1989
02.04.2013 um 08:13 Uhr
Hallo rubberman,

ich habe mehrere vbs. dateien und .hta dateien, welche für einen Monitoring Rechner genutzt werden,
die einzelnen Fenster sollen auf 7 Monitore verteilt werden.
da es mühseligt ist diese immmer per hand zurecht zu rücken, habe ich die Aufgabe bekommen
(im besten Fall) die Fensterposition der einzelnen Fenster beim schließen in eine .Ini datei zu speichern und die position eim starten der Dateien wieder zu laden.
Bitte warten ..
Mitglied: rubberman
02.04.2013 um 18:56 Uhr
Hallo jogi1989,

es bleibt dabei, ein VBScript hat kein Fenster. Somit gibt es keine Position, die zu speichern wäre.

Was HTA angeht, google ich doch gern für dich
Hey, Scripting Guy! How Can I Get an HTA to Remember Its Previous Position Onscreen?
In wiefern das die richtige Position über mehrere Monitore speichert, weiß ich nicht. Kann es auch nicht testen, da mir nur ein Monitor zur Verfügung steht (was mir persönlich auch völlig ausreicht ).

Grüße
rubberman
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
BATCH ini Datei Datei auslesen
gelöst Frage von Juergen42Batch & Shell2 Kommentare

Hallo zusammen, ich möchte eine ini Datei auslesen mit folgenden Aufbau INHALT DER INI ID=30 NAME="test1" PFAD="K:\Kontoauszug\Test1\*.pdf" PFAD_S="K:\Kontoauszug\Test1\Sicherung\" ID=28 ...

Batch & Shell
Variable aus ini Datei auslesen und weiterverwenden
gelöst Frage von n0cturneBatch & Shell17 Kommentare

Hallo zusammen, ich habe eine settings.ini Datei, die unter anderem folgendes beinhaltet: Settings port=1313 Nun möchte ich den Port ...

Batch & Shell
Powershell Profil in ini speichern
gelöst Frage von MarabuntaBatch & Shell12 Kommentare

Hallo, ich habe eine kleine GUI in der ein Profil ausgewählt und geladen werden kann. Jetzt will ich auch ...

Batch & Shell
Datum in Datei speichern und wieder auslesen
gelöst Frage von AndroxinBatch & Shell3 Kommentare

Moinsen, ich spiele gerade ein wenig mit der Powershell und Zeitstempeln rum: Zeitstempel mit Get-Date erstellen, als String in ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 4 StundenWindows 10

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 6 StundenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 20 StundenInternet3 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 1 TagDSL, VDSL1 Kommentar

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement21 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...

Windows Server
Anmeldung direkt am DC nicht möglich
Frage von ThomasGrWindows Server16 Kommentare

Hallo, ich habe bei unserem Server 2016 Standard ein Problem. Keine Ahnung wie das auf einmal passiert ist. Ich ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...

TK-Netze & Geräte
VPN-fähige IP-Telefone
Frage von the-buccaneerTK-Netze & Geräte15 Kommentare

Hi! Weiss noch jemand ein VPN-fähiges IP-Telefon mit dem man z.B. einen Heimarbeitsplatz gesichert anbinden könnte? Habe nur einen ...