Gå til innhold

Visual Basic Roundup!


Anbefalte innlegg

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 :p

 

Ikke legg noe fake greier som virus e.l. :ermm:

Endret av jonas22282460
Lenke til kommentar
Videoannonse
Annonse

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 av rwu
Lenke til kommentar
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 :p

 

Ikke legg noe fake greier som virus e.l. :ermm:

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?

Lenke til kommentar
Fett! Kan du liksom ganske mye eller siiinsykt mye? :omg:

åja den notepad hadde jeg jo glemt :D 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)... :)

Lenke til kommentar

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 av jonas22282460
Lenke til kommentar

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 :D

 

Edit: trenger dere kildekode så bare spør

Endret av jonas22282460
Lenke til kommentar

Joda, siden det er jul :p:xmas:

 

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 :sleep:

Lenke til kommentar
Wayshot, du vil vel ikke legge ut kildekoden på den der? :D

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

Lenke til kommentar
Fint at det ble opprettet en slik tråd akkurat nå som jeg har begynt å lære meg VB :thumbs:. 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. :thumbup:

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

Endret av rwu
Lenke til kommentar

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 :thumbup: 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 av Rep
Lenke til kommentar

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

Lenke til kommentar

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 :D

 

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

Endret av Rep
Lenke til kommentar

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

Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
×
×
  • Opprett ny...