- 1 februari 2008
- 0 Reacties
- 1 Berichten
- Rapporteer bericht
Hallo allemaal,
ik ben net nieuw in Visual Basic Scripting
En ik vroeg me een paar dingen af:
1. Is het mogelijk om een eigen (mini)chat te maken met VBScript?
2. Is het mogelijk om een contact formulier te maken met VBScript?
3. Ik heb een klein menutje gemaakt (en ben er heel erg trots op ) maar hoe kan ik er bijvoorbeeld rechts boven / links onder tijd neer zetten? (die zich om de seconden gewoon "refreshd"?
en dit is mijn menu'tje die ik heb gemaakt
code:
ik ben net nieuw in Visual Basic Scripting
En ik vroeg me een paar dingen af:
1. Is het mogelijk om een eigen (mini)chat te maken met VBScript?
2. Is het mogelijk om een contact formulier te maken met VBScript?
3. Ik heb een klein menutje gemaakt (en ben er heel erg trots op
) maar hoe kan ik er bijvoorbeeld rechts boven / links onder tijd neer zetten? (die zich om de seconden gewoon "refreshd"?en dit is mijn menu'tje die ik heb gemaakt
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
| if msgBox("Wilt u dit programma openen?", vbYesNo, "Vraag - V1.0") = vbYes then
msgbox "ok",0,"Antwoordt - V1.0"
Dim strMsg,inp01,strTitle,strFlag
strTitle = "Het Keuze Menu - V1.0"
strMsg = "Voer uw programma in. U kunt kiezen uit:" & vbCR
strMsg = strMsg & "Let op: Zonder hoofdletters!" & vbCR
strMsg = strMsg & "" & vbCR
strMsg = strMsg & "command (Zwart DOS schermpje.)" & vbCR
strMsg = strMsg & "kladblok" & vbCR
strMsg = strMsg & "msn" & vbCR
strMsg = strMsg & "register" & vbCR
strMsg = strMsg & "rekenmachientje (reken)" & vbCR
strMsg = strMsg & "shutdown (Dit laat je pc uitgaan!)" & vbCR
strMsg = strMsg & "taakbeheer" & vbCR
strMsg = strMsg & "wordpad" & vbCR
strMsg = strMsg & "x (Sluit het programma af.)" & vbCR
strMsg = strMsg & "" & vbCR
strMsg = strMsg & "menu 2: menu 2 zit in hetzelfde zip bestand." & vbCR
strMsg = strMsg & "" & vbCR
strMsg = strMsg & "Stuur me een E-mail: joey12543@hotmail.com" & vbCR
strFlag = False
Do While strFlag = False
inp01 = InputBox(strMsg,"Keuze Menu.")
Select Case inp01
Case "kladblok"
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe")
strFlag = False
Case "command"
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("command")
strFlag = False
Case "reken"
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("calc.exe")
strFlag = False
Case "wordpad"
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("wordpad.exe")
strFlag = False
Case "reken"
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("calc.exe")
strFlag = False
Case "taakbeheer"
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("taskmgr.exe")
strFlag = False
Case "register"
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("regedit.exe")
strFlag = False
Case "msn"
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("msnmsgr.exe")
strFlag = False
Case "shutdown"
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next
strFlag = True
Case "x"
strTitle = "Programma sluiten. - V1.0"
msgbox "Het programma wordt nu afgesloten.",48,strTitle
strFlag = True
Case Else
strTitle = "Verkeerd - V1.0"
msgbox "U heeft iets verkeerds ingevuld!",48,strTitle
End Select
Loop
else
strTitle = "Venstertitel"
msgbox "Nieuwe messagebox",64,strTitle
end if |
