Visual Basic Roundup!

[Jonas]

Synes det er litt lite liv her i visual basic forumet så får å få opp stemninga og få noen fler til å begyne med det så kan vi legge ut noen av våres prosjekter som vi synes er kule/morsomme/nyttige Har lagd et lite net send program. er ikke all verdens, men har ikke drevet på så lenge

 

Ikke legg noe fake greier som virus e.l.

Endret 19. desember 2003 av jonas22282460

[rwu]

har noe gammelt tull liggende på ei heller lite oppdatert hjemmeside: http://rwu.cjb.net se vb-prosjekter... har forøvrig en god del programmer jeg har laget(men ikke lagt ut) til eget bruk...

 

btw: fildatabasen og mp3databasen er begge meget mer avansert idag

 

jonas22282460: laga forøvrig en tekstbehandler en gang i tiden(2. eller 3. prosjektet mitt)... skulle lage en bedre versjon av notepad... endte opp med en wordpad-klone

Endret 19. desember 2003 av rwu

[Jonas]

Fett! Kan du liksom ganske mye eller siiinsykt mye?

åja den notepad hadde jeg jo glemt den ligger på samme url under småprogrammer!

[rwu]

Synes det er litt lite liv her i visual basic forumet så får å få opp stemninga og få noen fler til å begyne med det så kan vi legge ut noen av våres prosjekter som vi synes er kule/morsomme/nyttige Har lagd et lite net send program. er ikke all verdens, men har ikke drevet på så lenge

 

Ikke legg noe fake greier som virus e.l.

den net-send saken... er det en frontend til net send?

 

noe slikt som:

 

command1_click

dim netsend

netsend="net send " & text1 & " " & text2 'evt. "C:\windows\system32\net.exe"

call shell (netsend)

 

end sub

?

eller har du skrevet det på egenhånd med f.eks winsock.osx?

[rwu]

Fett! Kan du liksom ganske mye eller siiinsykt mye?

åja den notepad hadde jeg jo glemt den ligger på samme url under småprogrammer!

kan ikke mye... er selvlært(3-4år), foruten ei bok jeg hadde en gang... tror den het innføring i visual basic 5.0"

 

beste måte å lære på er prøving og feiling (og internet da)...

[Jonas]

Skjønte ikke helt hva frontend er for noe, men sånn her er i hvertfall koden:

 

command1.click
shell net send text1 text2
end  sub

Med gåseøyne et par steder og litt mer.. men du skjønner vell det!

 

Edit: det er det sammen som kjør - net send hvis det var det du ville vite

Endret 19. desember 2003 av jonas22282460

[rwu]

ja,ja... kan jo bli interessant å se hva andre hw-forumere har å bidra med i denne tråden...

Endret 19. desember 2003 av rwu

[the_lynx]

Fint at det ble opprettet en slik tråd akkurat nå som jeg har begynt å lære meg VB . Pøs på nå folkens!!

 

Og rwu: den siden din hadde jo vært genial om du faktisk hadde lagt ut de programmene dine der. Spesielt film-database programmet var interessant.

[Jonas]

Kan nevne noen fler jeg har i mappen småprogrammer:

 

Last ned.exe, skriv inn url og den laster ned fila.

Net Send.exe, fint på lan

Web Browser.exe, henta litt koder her og der og satt sammen til det

notepad.exe, jaja, noe samma som notepad

ip-prog.exe, åpner du den blir din ip lagra på en ftp. sier ikke adressen

 

Edit: trenger dere kildekode så bare spør

Endret 19. desember 2003 av jonas22282460

[the_lynx]

jonas: Du skulle vel ikke ha lyst til å legge ut source til de programmene? Siden det er jul

 

Edit: Så at du hadde skrevet "bare spør", så ja jeg spør...

Endret 19. desember 2003 av the_lynx

[Wayshot]

Ett av mine første VB-programmer: PassGen (20 KB), et program som genererer tilfeldige passord (jeg er for lat til å finne på tilfeldige passord selv). Man kan velge å ta med små bokstaver, store bokstaver, tall og/eller spesialtegn, og spesifisere hvor langt passordet skal være.

[Jonas]

Joda, siden det er jul

 

LAST NED

Option Explicit
Private Declare Function DoFileDownload Lib "shdocvw" _
   (ByVal lpszFile As String) As Long


Private Sub Command1_Click()
  
  Dim sDownload As String
  
  sDownload = StrConv(Text1.Text, vbUnicode)
  Call DoFileDownload(sDownload)
  
End Sub

 

 

NET SEND

Private Declare Function GetTickCount Lib "kernel32" () As Long

Public Sub Wait(milliSekunder As Long)
Dim tidFerdig As Long

tidFerdig = GetTickCount + milliSekunder
Do
DoEvents
Loop Until GetTickCount >= tidFerdig
End Sub
Private Sub Command1_Click()
If Label2.Caption = "hallo" Then
Label1.Caption = "Maks en melding hvert 10. sekund!"
Else
Shell "Net Send " & Text2 & " " & Text1, vbHide
Form1.Height = 1875
Label1.Caption = "Melding er sent"
Label2.Caption = "hallo"
Wait 10000
Label1.Caption = ""
Label2.Caption = ""
Form1.Height = 1605
End If
End Sub

Private Sub Form_Load()
Label2.Visible = False
Form1.Height = 1605
End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub
Private Sub Text2_Click()
Text2.Text = ""
End Sub

Her i denne koden har ting litt å si på hvor du plaserer ting så jeg velger å legge ut prosjekt fila til hjelp den ligger som zip fil under småprogrammer.

 

Hvis du vil ha koden til resten så bare si ifra så legger jeg it i morgen får nå er jeg trøtt

[Jonas]

Wayshot, du vil vel ikke legge ut kildekoden på den der?

[Wayshot]

Wayshot, du vil vel ikke legge ut kildekoden på den der?

Her er'n.

Option Explicit
Dim strPasstegn As String
Dim strPass As String
Dim intTegn As Integer
Dim intPasstall As Integer
Dim i As Integer

Private Sub cmdGenerer_Click()
With txtPassord
   .Text = ""
   .FontSize = 12
   .Font = "Times New Roman"
   .FontBold = True
End With

strPass = ""
strPasstegn = ""
intTegn = 0

   If chkSma = 1 Then
       strPasstegn = strPasstegn + "abcdefghijklmnopqrstuvwxyz"
       intTegn = intTegn + 26
   End If
   If chkStore = 1 Then
       strPasstegn = strPasstegn + "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
       intTegn = intTegn + 26
   End If
   If chkTall = 1 Then
       strPasstegn = strPasstegn + "0123456789"
       intTegn = intTegn + 10
   End If
   If chkTegn = 1 Then
        strPasstegn = strPasstegn + "!#¤%&/()=?*'@£$;:_,.-"
        intTegn = intTegn + 21
   End If

If txtAntall.Text = "" Then GoTo Feil

Randomize
For i = 1 To txtAntall.Text
   intPasstall = Int(Rnd * intTegn) + 1
   strPass = strPass + Mid(strPasstegn, intPasstall, 1)
Next

txtPassord.Text = strPass

Feil:
End Sub

Private Sub txtAntall_Change()
   
If IsNumeric(txtAntall) = False Then
       txtAntall.Text = ""
   End If

End Sub

[rwu]

Fint at det ble opprettet en slik tråd akkurat nå som jeg har begynt å lære meg VB . Pøs på nå folkens!!

 

Og rwu: den siden din hadde jo vært genial om du faktisk hadde lagt ut de programmene dine der. Spesielt film-database programmet var interessant.

slengte ut en ny versjon av filmdatabasen: http://home.no/rwu/files/fdb.zip

er ikke særlig mye hjelp å finne i programmet, og det er mange funksjoner der... men har du lært deg å bruke det er det ganske bra om jes kan si det selv...

 

en funksjon jeg lenge har planlagt er automatisk nedlasting av cover og omtaler fra f.eks. imbd og filmnett, men har ikke kommet så langt ennå...

 

edit: ooops... prøvde å kjøre programmet uten åpen database nettopp... fant to bugs med en gang... har oversett disse tidligere, da jeg alltid har en database åpen...

 

ligger to eksempler, *.fdb filer, i zip-fila....

 

edit2: når du starter programmet: trykk fil->åpne.. åpne ei av *.fdb filene som fulgte med, eller trykk legg inn for å opprette ny database...

 

er en liten bug der hvis du trykker i hovedvinduet, fjern eller omtale....

grunnen til at jeg ikke har sett disse før ser du ovenfor... skal fikse det med tid og stunder....

 

edit3(20.10.2003(20:43): siterer meg selv:

det er VELDIG viktig å legge inn feilbehandlere gjennom hele koden, da ikke alle brukere klikker akkurat der du vil de skal.... mange brukere har en tendens til å finne/provosere frem feil programmereren aldri kunne tenke seg kunne oppstå.

 

helt tydelig at jeg ikke har fulgt mitt eget råd...

Endret 20. desember 2003 av rwu

[Jonas]

Filmdatabasen var fet! men det kommer opp en feilmelding hvis jeg trykker på fjern og ikke har noe i listen..

 

Noen her som vet hvordan man kan få f eks en lydfil til å være "innebygd" i exe fila istedenfor at den må lige på pc'en?

[Rep]

Du kan legge lyd fil inn i exe fila med resource editor. For å bruke Resource Editor må du legge inn verktøyet gjennom Add-In manager som ligger på Add-Ins menyen.

 

I den kan du legge inn lydfiler eller andre ting som "Custom resource".

Du burde legge til egne navn på hver fil istedenfor "CUSTOM" som kommer som standard.

 

Eksempel på å hente det fram og lagre det på disk igjen

   Dim Res() As Byte
   Res = LoadResData(101, "CUSTOM")
   
   Open "c:\temp.tmp" For Binary Access Write As #1
       Put #1, , Res
   Close #1

 

Dere har kommet så godt igang her Så jeg kommer med flere eksempler

 

Istedenfor å kjøre shell på net send kommandoen burde du bruke API funksjonen.

Enkelt eksempel på den her:

'API
Private Declare Function NetMessageBufferSend Lib "Netapi32.dll" _
(yServer As Any, yToName As Byte, yFromName As Any, yMsg As Byte, _
ByVal lSize As Long) As Long
Private Const Msg_Success As Long = 0&

'Kode
   Dim Mottaker() As Byte
   Dim Beskjed() As Byte
   
   'Setter det i byte arrays
   Mottaker = "maskinnavn" & vbNullChar
   'Eksempel på melding med linjeskift, kan sende teksten fra en _
   tekstboks med Multiline
   Beskjed = "Hei dette er en test melding!" & vbCrLf & _
   "Dette er andre linje.." & vbNullChar
   
   If NetMessageBufferSend(ByVal 0&, Mottaker(0), ByVal 0&, _
   Beskjed(0), UBound(Beskjed)) = Msg_Success Then
       'Jippi den kom fram
   Else
       'Det gikk dårlig...
   End If
   

 

Har også et eksempel prosjekt liggende ute med hvordan styre og leke med Winamp fra ditt eget program. Kan jo f.eks lage klient/server og styre winamp på en annen maskin..? Den ligger her.

 

Håper noen kan få noe nytte av det her

Endret 20. desember 2003 av Rep

[rwu]

har også laget masse winamp-stuffs... bla. plugin som kjører diverse winamp-info til et gammelt vdm-display(kundedisplay fra et kassaaperat), strekkodeplugin(!), som starter forhånds definerte platlists(laga et hefte med artist-album med strekkode ved siden av) og den mp3-databasen da...

 

bare så synd at nullsoft fjerna det fine api-systemet fra winamp3->

 

var så enkelt før, da alle winamp-versjoner hadde "Winamp v1.x" som WinClassName...

[Rep]

Ja morsomt å leke med Winamp Laget et program som gjorde at en kunne styre Winamp med fjernkontroll. Koblet en IR mottaker til COM porten.

 

Men det er noen år siden jeg har kikket på det nå, men jeg la merke til nå at Winamp5 som nettopp har kommet er bakover kompatibel.

 

 

Du finner hwnd ved å bruke "Winamp v1.x" som classname

 

Nullsoft skjønte vel at de ikke hadde annet å gjøre, for det virket som v3 aldri slo helt til.

Endret 20. desember 2003 av Rep

[Jonas]

Rep, den net send greia der, er det noe annet eller er det akkurat det samme bare med "egen" kommando? hvis jeg har disabla messenger her, får jeg meldinga fra en sånn uansett? noen som husker kommandoen i kjør for å stoppe og starte den?

 

btw, hva er egentlig "API"? er det en liste hvor alle kommandoene ligger?