---
title: "Jag behöver Din hjälp!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/57905-jag-behöver-din-hjälp/page3"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "kaktusen"
published: "2002-11-03T22:06:58.000Z"
updated: "2002-11-27T20:58:07.000Z"
replies: 89
views: 1922
page: 3
pages: 5
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/57905-jag-behöver-din-hjälp"
---

# Jag behöver Din hjälp!

_Sida 3 av 5._

## #41 — kaktusen, 2002-11-09T16:37Z

niko

upsi  :r 
nu fungerade det :)

hehe tack så mycket!

Niko, du har möjligtvis inte MSN el. ICQ?

Mvh

Permalänk: https://www.webforum.nu/p/851059

## #42 — niko, 2002-11-09T17:05Z

> 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.  :)

Permalänk: https://www.webforum.nu/p/851067

## #43 — kaktusen, 2002-11-09T17:18Z

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

Permalänk: https://www.webforum.nu/p/851070

## #44 — Marcus E, 2002-11-09T18:16Z

Skapa en TextBox och ändra egenskapen PasswordChar till \*.

Permalänk: https://www.webforum.nu/p/851100

## #45 — niko, 2002-11-09T18:52Z

> Ä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.

Permalänk: https://www.webforum.nu/p/851115

## #46 — kaktusen, 2002-11-09T20:50Z

ok tack så mycket!

Permalänk: https://www.webforum.nu/p/851156

## #47 — kaktusen, 2002-11-09T23:02Z

**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

Permalänk: https://www.webforum.nu/p/851221

## #48 — niko, 2002-11-09T23:19Z

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 ..

Permalänk: https://www.webforum.nu/p/851228

## #49 — kaktusen, 2002-11-09T23:29Z

tack så mycket!

och jag hoppas att det är svårt att hacka sig igenom dessa lösenord?

Permalänk: https://www.webforum.nu/p/851230

## #50 — niko, 2002-11-09T23:40Z

```
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.  :)

Permalänk: https://www.webforum.nu/p/851236

## #51 — kaktusen, 2002-11-09T23:55Z

Kan man skriva en text längst ner i programmet? Där det gråa är, som en "statusrad" ?

mvh

Permalänk: https://www.webforum.nu/p/851243

## #52 — niko, 2002-11-10T00:10Z

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.

Permalänk: https://www.webforum.nu/p/851246

## #53 — kaktusen, 2002-11-10T09:31Z

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!

Permalänk: https://www.webforum.nu/p/851370

## #54 — niko, 2002-11-10T14:09Z

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?

Permalänk: https://www.webforum.nu/p/851513

## #55 — kaktusen, 2002-11-10T20:31Z

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

Permalänk: https://www.webforum.nu/p/851704

## #56 — niko, 2002-11-11T14:05Z

> 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).

Permalänk: https://www.webforum.nu/p/852142

## #57 — kaktusen, 2002-11-11T16:29Z

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

Permalänk: https://www.webforum.nu/p/852231

## #58 — kaktusen, 2002-11-11T16:31Z

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???

Permalänk: https://www.webforum.nu/p/852232

## #59 — Marcus E, 2002-11-11T16:38Z

> 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.

Permalänk: https://www.webforum.nu/p/852241

## #60 — kaktusen, 2002-11-11T17:13Z

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?

Permalänk: https://www.webforum.nu/p/852271

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/57905-jag-behöver-din-hjälp/page3  
Föregående sida: https://www.webforum.nu/amne/dotnet/57905-jag-behöver-din-hjälp/page2.md  
Nästa sida: https://www.webforum.nu/amne/dotnet/57905-jag-behöver-din-hjälp/page4.md