supercorky
Gebruiker
- Lid geworden
- 5 sep 2007
- Berichten
- 36
Hallo allemaal ik ben al vaak op deze site terechtgekomen als ik een vraag heb, maar nu wil ik toch zelf eens iets vragen. Bij mij op mijn werk willen we graag onderling berichtjes sturen ik heb dat met net send mogelijk gemaakt. Ik heb om het gebruik makkelijker te maken een grafische omgeving gedownload en zo veel mogelijk vertaald naar het nederlands. nu wil ik alleen graag een dropdown menu hebben met alle gebruikersnamen er in zodat niemand meer de volledige namen hoeft te typen. Ik ben helemaal niet bekend met vsb scripts dus wil ik niet te veel verzieken aan de broncode. Mijn vraag is, is het mogelijk om een drop down menu te maken, zo ja, hoe dan?
BVD Jordi Hekhuis
BVD Jordi Hekhuis
PHP:
<html>
<head>
<hta:application
id="myNetsend"
applicationname="myNetsend"
border="thin"
borderstyle="normal"
caption="yes"
sysmenu="yes"
maximizeButton="no"
scroll="no"
selection="no"
icon="explorer.exe"
version="V057"
creation="03NOV2005"
update="13JAN2006"
author="Delrinian"
Adjusted by="Jordi"
/>
<title>Net Send</title>
<style type="text/css">
body {font-family:arial; font-weight:bold; color:#789;
filter:progid:DXImageTransform.Microsoft.Gradient(
GradientType=1,StartColorStr='#FFFFFF',EndColorStr ='#778899');}
.box {background-color:#FBFBFB; border:1px solid #AEAEAE;}
.message {width:340px; border:1px solid #AEAEAE;
background-color:#C0C0C0; color:#FFF; padding-left:.2em;}
.header {text-align:right; font-variant:small-caps; font-size:25px; width:340px;}
#head1 {color:#789;}
#head2 {color:#FFF;}
#head3 {color:#FFF; font-size:10px; text-decoration:overline underline;}
#strText {overflow:auto; width:340px; font:12px arial;}
a {text-decoration:none; padding-left:.2em; padding-right:.2em; color:#FFF; background-color:#789;}
a:link {border:2px groove;}
a:visited {border:2px groove;}
a:active {border:2px inset;}
a:hover {background-color:#C0C0C0;}
#footer {font-size:12px; font-variant:small-caps; text-align:right;
border-top:1px dashed; width:340px; color:#FFF; padding:.1em;}
#x {width:20px;}
#wrapper {padding-left:2.5em;}
</style>
<script type="text/VBScript">
public g_strRepeat, g_strOnline, g_strSender, g_strThisUser
Set objNetwork = CreateObject("WScript.Network")
g_strThisUser = UCase(objNetwork.UserName)
Window.ResizeTo 480,320
Function NetSend(strSID)
If not strSID = "" Then
If not strText.value = "" Then
Dim objShell, iReturn
Set objShell=CreateObject("WScript.Shell")
strMyText = Replace(strText.value, vbCrLf, ", ")
strMyText = Replace(strMyText, chr(34), "'")
strMyText = chr(34) & strMyText & chr(34)
iReturn=objShell.Run("%comspec% /c net send " & strSID & " " & g_strThisUser & " says: " & strMyText,0,true)
g_strRepeat=strText.value
If not iReturn = 0 Then
if g_strOnline = "OFFLINE" Then
x.style.backgroundColor="#FFFF00"
strText.innerHTML="FOUT: Het bericht is niet verzonden," &_
" de gebruiker bestaat niet of is niet ingelogd"
Msg.innerHTML="FOUT:"
End If
Else
x.style.backgroundColor="#00FF00"
strText.innerHTML=""
Msg.innerHTML="Bericht verzonden."
End If
Else
x.style.backgroundColor="#FFFF00"
strText.innerHTML="FOUT: er was niks om te versturen," &_
" typ een bericht om te versturen"
Msg.innerHTML="FOUT: geen bericht"
End If
Else
x.style.backgroundColor="#FFFF00"
strText.innerHTML = "FOUT: voer een ontvanger in"
Msg.innerHTML = "FOUT: geen ontvanger"
End If
End Function
Function Repeat()
strText.innerHTML=g_strRepeat
Msg.innerHTML="Dit is je laatste bericht"
End Function
Function Clear()
strText.innerHTML=""
Msg.innerHTML="Klaar."
End Function
Function Check(strSID)
If not strSID = "" Then
Dim objShell, iReturn, strHTML
strHTML=""""
Set objShell=CreateObject("WScript.Shell")
iReturn=ObjShell.Run("%comspec% /c net send " & strSID & " " & strHTML,0,true)
If not iReturn = 0 Then
Msg.innerHTML=UCase(strSID) & " is OFFLINE"
x.style.backgroundColor="#FF0000"
strText.innerHTML=""
g_strOnline="OFFLINE"
Else
Msg.innerHTML=UCase(strSID) & " is ONLINE"
x.style.backgroundColor="#00FF00"
strText.innerHTML=""
g_strOnline="ONLINE"
End If
End If
End Function
Function Return()
strText.focus
End Function
</script>
</head>
<body>
<div id=wrapper>
<div class="header"><span id="head1">net</span><span id="head2">send</span>
<span id="head3"><script>head3.innerHTML=myNetsend.version</script></span></div>
<div>
<p>Aan :: <input id="strSID" class="box" type="text" maxlength="15" onBlur="Check(strSID.value)">
<span id="x" class="box"></span>:::::::::::::::::::::</p>
<p>Bericht ::</br>
<textarea id="strText" class="box" cols="40" rows="3"></textarea><br>
<span class="message" id="Msg">Typ je bericht</span></p>
<p>
<a href="#" onClick="NetSend(strSID.value)" onMouseUp="Return()" title="Verstuurd het bericht">Verzend</a>
<a href="#" onClick="Repeat()" onMouseUp="Return()" title="Herhaald je laatste bericht">Herhaal</a>
<a href="#" onClick="Clear()" onMouseUp="Return()" title="Leegt het tekstveld">Leeg</a>
</p>
</div>
</div>
</body>
</html>
