27 svar · 832 visningar · startad av mattiasnordin · sida 2 av 2
Hittar inte något som döljer min input. Vad kan det finnas för kommandon?
Läs frågan i sin helhet →Ja, så tyckte jag också...
Nu ska vi kanske nämna att det inte är nödvändigt at kompilera ihop .exe fil utan det går lika bra som .vbs fil.
Hittar tyvärr inte något media för visual studio 6.0. Vet dock att vi har den någonstans.
Visual Interdev 6.0 har jag för mig är ett hjälpmedel för att skapa webrelaterade saker. Har den något stöd för att skapa .vbs filer och texbox objekt och liknande? Denna skiva har jag hittat.
vbs-filer är textfiler som innehåller vbscript-kod. VBScript-filer kan du skapa i vilken texteditor som helst.
- - - - -
Jag förstod det som att du hade ett befintligt VB-projekt som du ville ändra i?
Din input som du pratar om i det första inlägget, ligger den i ett VBScript, eller i en form i ett VB-projekt, eller vad?
Just nu ligger den i ett VBscript. Det spelar mig inte någon roll vilken lösning det blir. Det enda som återstår att är dölja tecknen i min textbox.
Jag är van att göra VB-skript som exekveras i ASP men här ska det köras i windows.
InputBox är jag inte heller van med :/
'*********************************************************************
' Author: Mattias Nordin
' Date: 2005-07-21
' Version: 1.0
' Platform: Windows 2000/XP
' Language: VBScript
'**********************************************************************
On Error Resume Next
varInputUserName = InputBox("DETTA SKRIPT KOMMER ATT MONTERA NYA R: OCH NYA Y:" &vbcrlf &vbcrlf &"Skriv in användarnamnet som du har i IARSYSTEMS domänen (ex: mattias.nordin)")
varInputUserName = "IARSYSTEMS\" &varInputUserName
varInputUserPassword = InputBox("Skriv ditt lösenord i den nya domänen")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objDrives = WshNetwork.EnumNetworkDrives
For i = 0 to objDrives.Count - 1 Step 2
' WScript.Echo "Drive " & objDrives.Item(i) & " = " & objDrives.Item(i+1)
'TESTAR OM DEN GAMLA MAPPNINGEN EXISTERAR
if objDrives.Item(i) = "R:" then
WScript.Echo ("R finns redan")
WshNetwork.RemoveNetworkDrive "R:", bUpdateProfile=true 'Tar bort nuvarande R:
end if
if objDrives.Item(i) = "Y:" then
WScript.Echo ("Y finns redan")
WshNetwork.RemoveNetworkDrive "Y:", bUpdateProfile=true 'Tar bort nuvarande Y:
end if
Next
' WScript.Echo varInputUserName
' WScript.Echo varInputUserPassword
' varDriveLetter = "U:"
' varRemotePath = "\\rosa\CD"
' strRemoteUser = "mattiasn"
' varRemotePassword = "000000"
varUpdateProfile = "true"
WshNetwork.MapNetworkDrive "R:", "\\dev1\R_share", varUpdateProfile, varInputUserName, varInputUserPassword
WshNetwork.MapNetworkDrive "Y:", "\\dev1\Y_share", varUpdateProfile, varInputUserName, varInputUserPassword
'SKRIVER UT FELMEDDELANDE
numerr = Err.number
abouterr = Err.description
If numerr <> 0 Then
WScript.Echo "Något gick snett... / M" &vbcrlf &" ... Error number " &numerr
End If
http://www.microsoft.com/technet/scriptcenter/resources/qanda/feb05/hey0204.mspx
Det vore bra om du försökte vara så tydlig som möjligt redan i första inlägget i tråden, så man vet hur man ska besvara frågeställningarna.
Tack för länken. Ska testa.
Det vore bra om du försökte vara så tydlig som möjligt redan i första inlägget i tråden, så man vet hur man ska besvara frågeställningarna.
Det är ju självklart. Trodde inte att detta skulle vara så krångligt bara. Hade en förhoppning om att det skulle finnas någon motsvarighet till <input type=password...
Jag försöker inte jävlas med er ;)
Man lär sig något varje dag. :)
Hey, PG. If you’re hoping to mask passwords using a function or method built into WSH or VBScript we’re afraid you’ll be disappointed;
Det hade ju onekligen varit ganska praktiskt att ha haft det alternativet inbyggt. :(
Jag försöker inte jävlas med er
Det verkar nästan så. :)
Om du hade varit tydlig från början med vad det var du höll på med, och skrivit att det var ett VBScript och inget VB-projekt, så hade min länk kommit betydligt tidigare om man säger så. Tänk om du till och med hade visat koden från början också! :D
Jag håller med om att jag borde posta koden tidigare men vid inlägg nummer 3 så hade jag inte kommit speciellt långt.
Hur som helst. Det här var betydligt krångligare än vad jag kunde tänka mig att det skulle vara.
Lite nyfiken att försöka lära mig V-studio verktyget. Skulle onekligen vara smidigt att skicka ut en exe fil istället.
Jag är en självlärd novis på programmering. Yrket är nätverkstekniker o sysadmin så det är inte alltid lätt :)
Tack för hjälpen alla!