niko
upsi :r
nu fungerade det :)
hehe tack så mycket!
Niko, du har möjligtvis inte MSN el. ICQ?
Mvh
Jag behöver Din hjälp!
89 svar · 1 844 visningar · startad av kaktusen · sida 3 av 5
Frågan, av kaktusen
Jag vill skapa ett program och jag vet att man kan göra detta program i Visual Basic. Sedan i Visual Basic kan man göra så att själva programmet man bygger visar en speciell hemsida, t.ex. <https://www.vadsomhelst.com> Hoppas ni förstår vad jag menar! Finns det någon som kan hjälpa mig med detta? Antingen bygga en åt mig eller lära mig hur jag gör? Vore evigt tacksam! Ni kan ev. kontakta mig
Läs frågan i sin helhet →Niko, du har möjligtvis inte MSN el. ICQ?
Nä, faktiskt inte ..
Men om du har andra fågor om VB så kan du väl ställa dem här? Aktiviteten i VB-forumet är ändå ganska låg, så det är väl bara bra. :)
Tack niko, uppskattas verkligen!
Då passar jag på att fråga då ;)
När jag skriver in lösenordet för att komma in i programmet så syns bokstäverna, hur gör jag för att det ska bli ****** istället för bokstäver?
Tänker då på koden:
Private Sub Form_Load()
Me.Caption = "Namn"
WebBrowser1.Navigate "www.minsida.se/sida1.asp"
If Trim(InputBox("Ange lösenord för programmet!", "Lösenord")) <> "testabonnent" Then
MsgBox "Fel lösenord. Programmet stängs!", vbCritical
End
End If
' Övrig kod ...
' osv ...
End Sub
Skapa en TextBox och ändra egenskapen PasswordChar till *.
Ändra egenskapen PasswordChar till *.
En InPutBox har inte någon egenskap som heter PasswordChar (utan att man djupdyker i API:et).
Vill du ha denna funktionalitet så får du gå en annan väg.
1. Ta bort den lösenordskod du har nu.
2. Lägg till ett nytt formulär till projektet (Form2). Project-> Add form.
3. Lägg på en textbox och en knapp på det nya formuläret. Designa sen formuläret som du vill ha det.
4. Sätt PasswordChar till "*" för textboxen
5. I det nya formuläret:
Private Sub Command1_Click()
If Trim(Text1)) <> "testabonnent" Then
MsgBox "Fel lösenord. Programmet stängs!", vbCritical
End
else
Dim f as new Form1
f.show
Unload me
end if
End Sub
6. I Project->Properties ändra Startup Object till Form2.
ok tack så mycket!
Ny fråga:
Jag lyckas inte med att skapa flera lösenord då man loggar in på programmet, var ska jag skriva password1, password 2?
Nedan är så jag har skrivit i programmet men det funkar inte :(
Private Sub Form_Load()
Me.Caption = "Namn"
WebBrowser1.Navigate "www.minsida.se/sida1.asp"
If Trim(InputBox("Ange lösenord för programmet!", "Lösenord")) <> "testabonnent" Then
MsgBox "Fel lösenord. Programmet stängs!", vbCritical
End
End If
' password1
' password2
End Sub
Mvh
Här är en enkel variant som tillåter att man anger en kommaseparerad lista med hårdkodade lösenord:
Private Sub Form_Load()
Dim sPassWord As String, sValidPassWords As String, arrPassWords() As String
Dim bMatch As Boolean, i As Integer
sValidPassWords = "lösenord1,lösenord2,lösenord3" 'Skriv giltiga lösenord här, kommaseparerat.
arrPassWords() = Split(sValidPassWords, ",")
sPassWord = Trim(InputBox("Ange lösenord för programmet!", "Lösenord"))
For i = 0 To UBound(arrPassWords)
If LCase(sPassWord) = LCase(arrPassWords(i)) Then
bMatch = True
Exit For
End If
Next i
If Not bMatch Then
MsgBox "Fel lösenord. Programmet stängs!", vbCritical
End
End If
Me.Caption = "Namn"
WebBrowser1.Navigate "www.minsida.se/sida1.asp"
' osv ..
End Sub
Inte särskilt avancerat, men det kanske duger ..
och jag hoppas att det är svårt att hacka sig igenom dessa lösenord?
Svårt? Tja, kanske för en normalanvändare. Annars är det bara att öppna den kompilerade koden i en hexeditor och läsa lösenorden i klartext. :)
Som en statusrad? Varför inte använda en riktig "Status Bar"?
Välj Project->Components. Lägg till Microsoft Common Controls 6.0.
Då dyker en del nya saker upp i Toolboxen. Bla en Status Bar som du kan dra ut i ditt formulär.
Om du sen högerklickar på den och väljer Properties så kan du lägga till paneler och skriva text i dem.
Prova dig fram!
Om du vill ändra text i statusraden från kod skriver du:
StatusBar1.Panels(i) = "Vad du vill"
.. om "i" är numret på din panel.
tack så mycket, det fungerade (som vanligt)...
men nu har jag kommit på en ytterligare sak jag måste ändra som jag inte ens vet om det går.
Det är såhär:
Jag ska lägga upp detta program på min hemsida (.exe fil) och där får våra kunder ladda hem programmet.
Och då får de ju lösenordet för att komma in i själva programmet OCH det är nu problemet uppstår.
Då deras abonnemangstid går ut vill jag kunna ändra lösenord för att komma in i programmet så att inte dessa kan komma in i programmet, men jag har nu kommit på att då måste de ladda hem programmet ytterligare en gång för att "lösenordet" skall ändras på deras dator. För om jag ändrar lösenordet via Visual Basic så ändrar jag ju inte lösenordet på deras datorer.
Hur ska jag bära mig åt?
Tack på förhand!
OK. Så vad du vill ha är det vanliga systemet med trial-period, registrering osv?
Detta kan så kan klart göras på en massa sätt, men om det ska vara nåt vettigt skydd så involverar det skrivningar till registret, kryptering mm. Detta är liksom inget som jag på nåt enkelt och snabbt sätt kan guida dig igenom här (har inte så stor erfarenhet heller).
En bättre och enklare lösning kan vara att ladda ner ett färdigt system tex det här: http://www.go-download.com/7.htm . Jag har inte provat det själv och det finns säkert andra (det innehåller iaf en tutorial). Prova att leta lite på nätet!
En annan sak som man kan undra är: Din applikation är ju bara en klient mot en website? Bör då inte all registrering och sånt hanteras på siten snarare än i programmet?
tack, testade att ladda hem programmet, ska försöka få igång det imorgon *s*
Ännu en fråga:
Kan man bifoga en bild längst ner i programmet? Där det gråa är?
Tack för tusende gången ;-)
Mvh
Där det gråa är?
Eh, ja? Har du ett oönskat mellanrum mellan IE-kontrollen och statusbaren? I så fall kan du ju justera det?
Att infoga bilder kan man göra på flera sätt. det enklaste är kanske att dra ut en image- eller pictureboxkontroll ur toolboxen och sätta picture-propertyn till önskad sökväg. Det går också att infoga bilder i statusbaren om man vill det (kolla under properties för statusbaren).
tackar.
har nu låtit 5 pers provat programmet och för 2 pers så kommer detta felmeddelande upp när han ska öppna programmet:
"Det går inte att hitta DLL-filen."
Vad ska jag göra?
Mvh
Det står:
"Det gick inte att hitta DLL-filen MSVBVM60.DLL"
Det betyder väl: "Kan ej hitta Microsoft-Visual-Basic-Viritual-Machine-6-0 DLL.
Måste man ha Visual Basic installerat på datorn för att få igång programmet???
Måste man ha Visual Basic installerat på datorn för att få igång programmet???
Nej, men du måste ha dess interpretator och funktionsbibliotek. Det är samlat i den filen.
Ok, hur gör jag då för att få det att fungera?
Ska jag installera VB på en annan dator med W98 och sedan köra det därifrån eller hur ska jag få det att fungera för samtliga användare?