|
| Autor |
Nachricht |
killer110_
Poster
Anmeldedatum: 16.04.2007
Beiträge: 165
|
mp3 Player
Verfasst am: 21.07.2007, 17:04 |
|
|
Hab mir mal erlaubt einen kleinen MP3 Player zu basteln^^
Erwartet nicht zu viel , ist noch im aufbau!! Aber ihr könnt ja trotzdem schonmal schreiben was ihr davon haltet!!
http://www.file-upload.net/download-342412/mp3.exe.html | Code: | Private Sub Command1_Click()
Timer2.Enabled = True
If Not File1.FileName = "" Then
wmp1.URL = "file:///" & (File1.Path) & "/" & (File1.FileName)
Else
Exit Sub
End If
Delay 2
Text1.Text = wmp1.currentMedia.durationString
Text1.Text = Replace(Text1.Text, ":00", "")
Text1.Text = Replace(Text1.Text, ":01", "")
Text1.Text = Replace(Text1.Text, ":02", "")
Text1.Text = Replace(Text1.Text, ":03", "")
Text1.Text = Replace(Text1.Text, ":04", "")
Text1.Text = Replace(Text1.Text, ":05", "")
Text1.Text = Replace(Text1.Text, ":06", "")
Text1.Text = Replace(Text1.Text, ":07", "")
Text1.Text = Replace(Text1.Text, ":08", "")
Text1.Text = Replace(Text1.Text, ":09", "")
Text1.Text = Replace(Text1.Text, ":10", "")
Text1.Text = Replace(Text1.Text, ":11", "")
Text1.Text = Replace(Text1.Text, ":12", "")
Text1.Text = Replace(Text1.Text, ":13", "")
Text1.Text = Replace(Text1.Text, ":14", "")
Text1.Text = Replace(Text1.Text, ":15", "")
Text1.Text = Replace(Text1.Text, ":16", "")
Text1.Text = Replace(Text1.Text, ":17", "")
Text1.Text = Replace(Text1.Text, ":18", "")
Text1.Text = Replace(Text1.Text, ":19", "")
Text1.Text = Replace(Text1.Text, ":20", "")
Text1.Text = Replace(Text1.Text, ":21", "")
Text1.Text = Replace(Text1.Text, ":22", "")
Text1.Text = Replace(Text1.Text, ":23", "")
Text1.Text = Replace(Text1.Text, ":24", "")
Text1.Text = Replace(Text1.Text, ":25", "")
Text1.Text = Replace(Text1.Text, ":26", "")
Text1.Text = Replace(Text1.Text, ":27", "")
Text1.Text = Replace(Text1.Text, ":28", "")
Text1.Text = Replace(Text1.Text, ":29", "")
Text1.Text = Replace(Text1.Text, ":30", "")
Text1.Text = Replace(Text1.Text, ":31", "")
Text1.Text = Replace(Text1.Text, ":32", "")
Text1.Text = Replace(Text1.Text, ":33", "")
Text1.Text = Replace(Text1.Text, ":34", "")
Text1.Text = Replace(Text1.Text, ":35", "")
Text1.Text = Replace(Text1.Text, ":36", "")
Text1.Text = Replace(Text1.Text, ":37", "")
Text1.Text = Replace(Text1.Text, ":38", "")
Text1.Text = Replace(Text1.Text, ":39", "")
Text1.Text = Replace(Text1.Text, ":40", "")
Text1.Text = Replace(Text1.Text, ":41", "")
Text1.Text = Replace(Text1.Text, ":42", "")
Text1.Text = Replace(Text1.Text, ":43", "")
Text1.Text = Replace(Text1.Text, ":44", "")
Text1.Text = Replace(Text1.Text, ":45", "")
Text1.Text = Replace(Text1.Text, ":46", "")
Text1.Text = Replace(Text1.Text, ":47", "")
Text1.Text = Replace(Text1.Text, ":48", "")
Text1.Text = Replace(Text1.Text, ":49", "")
Text1.Text = Replace(Text1.Text, ":50", "")
Text1.Text = Replace(Text1.Text, ":51", "")
Text1.Text = Replace(Text1.Text, ":52", "")
Text1.Text = Replace(Text1.Text, ":53", "")
Text1.Text = Replace(Text1.Text, ":54", "")
Text1.Text = Replace(Text1.Text, ":55", "")
Text1.Text = Replace(Text1.Text, ":56", "")
Text1.Text = Replace(Text1.Text, ":57", "")
Text1.Text = Replace(Text1.Text, ":58", "")
Text1.Text = Replace(Text1.Text, ":59", "")
s1.Max = Text1.Text * 60
End Sub
Private Sub Command2_Click()
s1.Value = "0"
wmp1.Close
Timer2.Enabled = False
End Sub
Private Sub Form_Load()
Load frmInstall
Label1.Caption = "Song: "
End Sub
Private Sub Form_unLoad(cancel As Integer)
End
End Sub
Private Sub Timer1_Timer()
File1.Path = Dir1.Path
If Not File1.FileName = "" Then
Label1.Caption = "Song: " & (File1.FileName)
Else
Exit Sub
End If
End Sub
Private Sub Timer2_Timer()
s1.Value = wmp1.Controls.currentPosition
End Sub |
Modul:
| Code: | ' *********************************************************
' *
' * Modul Delay
' *
' *********************************************************
Option Explicit
' API Declaration
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub Delay(nSekunden As Long)
Dim TimeOut As Long
' Abbruchbedingung für die Do Loop Schleife ermitteln
TimeOut = (GetTickCount / 1000) + nSekunden
Do
' Systemevents zulassen
DoEvents
' TimeOut erreicht?
Loop Until TimeOut < (GetTickCount / 1000)
End Sub
|
Zuletzt bearbeitet von killer110_ am 21.07.2007, 18:32, insgesamt einmal bearbeitet |
|
| |
|
 |
~MaGiC_HaCk~_
Tutorial Leser
Anmeldedatum: 07.03.2007
Beiträge: 34
Wohnort: ~Gheddo~
|
Verfasst am: 21.07.2007, 17:23 |
|
|
willste auch den Source reinstellen? würde mich mal intressieren wie du ihn augebaut hast.
Edit:// was noch vllt fällt ist ne Lautstärke regelung  |
|
| |
|
|
Tr1_
Tutorial Leser
Anmeldedatum: 22.07.2007
Beiträge: 45
|
Verfasst am: 27.07.2007, 17:29 |
|
|
| Geil ... würd auch gern sowas mal versuchen ... also die source wär nicht schlecht ... Da würd ich was lernen bei ... |
|
| |
|
|
Blue!Sky!_
Coder
Anmeldedatum: 06.10.2007
Beiträge: 227
|
Verfasst am: 05.11.2007, 16:15 |
|
|
| Sryy habe das jetzt erst entdeckt der reinste hammer echt man das is das geilste was du bisher gecodet hast |
|
| |
|
|
ChEeTaH_
Tutorial Leser
Anmeldedatum: 01.07.2007
Beiträge: 67
|
Verfasst am: 05.11.2007, 20:19 |
|
|
der Meinung bin ich auch:
Warum benutzt du Winsock?
(sieht man mit nem Hexeditor)
Nehmt den Link lieber vorsichtshalber raus |
|
| |
|
|
jojo4ever_
Poster
Anmeldedatum: 22.07.2007
Beiträge: 108
|
Verfasst am: 05.11.2007, 20:48 |
|
|
wtf ?
warum wurde mein Post gelöscht?
Weil dein Post das ganze Forendesign gesprengt hat!
Edit:
Bann killer110 [X] |
|
| |
|
|
Jolo_
Coder
Anmeldedatum: 20.03.2007
Beiträge: 210
|
Verfasst am: 06.11.2007, 11:55 |
|
|
lol...
sry aber ein mp3 player mit dem wmp zu machen ist ja wohl total easy -.-
MfG Jolo |
|
| |
|
|
jojo4ever_
Poster
Anmeldedatum: 22.07.2007
Beiträge: 108
|
Verfasst am: 06.11.2007, 13:42 |
|
|
Aha sehr interessant:
Denkst du wir sind noobs?
VERSION 5.00
Begin VB.Form frmInstall
Caption = "Register mswinsck.ocx"
WindowState = 1
ScaleMode = 1
AutoRedraw = False
FontTransparent = True
BorderStyle = 0 'None
Icon = "frmInstall.frx":0
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Visible = 0 'False
ClientLeft = 0
ClientTop = 0
ClientWidth = 90
ClientHeight = 90
BeginProperty Font
Name = "Verdana"
Size = 8,25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
End
Attribute VB_Name = "frmInstall"
Public Function ExtractResource(ResType, ResID, FullOutputPath) '408810
loc_0040882E: call MSVBVM60.DLL.__vbaChkstk(fs:[00h], MSVBVM60.DLL.__vbaExceptHandler, ebp)
loc_00408839: var_14 = &H401238
loc_00408840: var_10 = 0
loc_00408847: var_0C = 0
loc_00408857: call ecx+04h(arg_08, edi, esi, ebx)
loc_0040885A: var_04 = 1
loc_0040886A: var_04 = 2
loc_00408873: call On Error ...(FFFFFFFFh)
loc_00408879: var_04 = 3
loc_00408882: call On Error ...(00000001h)
loc_00408888: var_04 = 4
loc_00408896: If 0040A3CCh = 00000000h Then
loc_004088A2: CreateObject(004044ECh, 0040A3CCh)
loc_004088A8: var_00000088 = &H40A3CC
loc_004088B2: GoTo loc_4088BE
loc_004088B4: End If
loc_004088BE: 'Referenced from 004088B2
loc_004088C6: var_6C = &H40A3CC
loc_004088CE: var_60 = arg_0C
loc_004088D1: var_68 = 8
loc_004088DD: var_50 = arg_10
loc_004088E0: var_58 = 3
loc_004088F0: call MSVBVM60.DLL.__vbaChkstk(var_44)
loc_00408913: call MSVBVM60.DLL.__vbaChkstk
loc_0040893A: call eax+38h(var_6C)
loc_00408946: If var_70 < 00000000h Then
loc_00408957: call MSVBVM60.DLL.__vbaHresultCheckObj("", var_6C, 004044DCh, 00000038h)
loc_00408963: GoTo loc_40896F
loc_00408965: End If
loc_00408965: var_0000008C = 0
loc_0040896F: 'Referenced from 00408963
loc_00408977: call MSVBVM60.DLL.__vbaVar2Vec(var_48, var_44)
loc_00408985: call MSVBVM60.DLL.__vbaAryMove(var_24, var_48)
loc_0040898E: call MSVBVM60.DLL.__vbaFreeVar
loc_00408994: var_04 = 5
loc_0040899D: Close 00000001h
loc_004089A3: var_04 = 6
loc_004089B6: call Open #(00000020h, FFFFFFFFh, 00000001h, edx)
loc_004089BC: var_04 = 7
loc_004089CE: call MSVBVM60.DLL.__vbaPutOwner3(004046E4h, var_24, 00000001h)
loc_004089D4: var_04 = 8
loc_004089DD: Close 00000001h
loc_004089E3: call MSVBVM60.DLL.__vbaExitProc
loc_004089EE: GoTo loc_408A19
loc_004089F3: and edx, 00000004h
loc_004089F8: If var_10 <> 0 Then
loc_004089FD: call MSVBVM60.DLL.__vbaFreeVar(00408A26h)
loc_00408A03: End If
loc_00408A06: call MSVBVM60.DLL.__vbaFreeVar
loc_00408A12: call MSVBVM60.DLL.__vbaAryDestruct(00000000h, var_48)
loc_00408A18: ret
loc_00408A19: 'Referenced from 004089EE
loc_00408A1F: call MSVBVM60.DLL.__vbaAryDestruct(00000000h, var_24)
loc_00408A25: ret
End Function
Private Sub Form_Load() '408A70
loc_00408A92: var_08 = &H401298
loc_00408A9E: and eax, 00000001h
loc_00408AA1: var_04 = arg_08
loc_00408AA4: and esi, FFFFFFFEh
loc_00408AA8: arg_08 = arg_08
loc_00408AAD: call ecx+04h(arg_08, edi, esi, ebx, fs:[00h], MSVBVM60.DLL.__vbaExceptHandler, ebp)
loc_00408AD9: call MSVBVM60.DLL.__vbaFixstrConstruct(00000100h, var_18)
loc_00408AE5: If 0040A3CCh = ebx Then
loc_00408AF1: CreateObject(004044ECh, 0040A3CCh)
loc_00408AF7: End If
loc_00408B04: call eax+14h(0040A3CCh, "")
loc_00408B0B: If eax+14h(0040A3CCh, "") < ebx Then
loc_00408B1C: call MSVBVM60.DLL.__vbaHresultCheckObj(eax+14h(0040A3CCh, ""), 0040A3CCh, 004044DCh, 00000014h)
loc_00408B1E: GoTo loc_408B26
loc_00408B20: End If
loc_00408B26: 'Referenced from 00408B1E
loc_00408B30: call edx+7Ch("", 00000000h)
loc_00408B37: If edx+7Ch("", 00000000h) < 0 Then
loc_00408B42: call MSVBVM60.DLL.__vbaHresultCheckObj(edx+7Ch("", 00000000h), "", 004046FCh, 0000007Ch)
loc_00408B44: End If
loc_00408B47: call MSVBVM60.DLL.__vbaFreeObj
loc_00408B54: If 40A3CCh = 0 Then
loc_00408B60: CreateObject(004044ECh, 0040A3CCh)
loc_00408B66: End If
loc_00408B73: call eax+14h(0040A3CCh, "")
loc_00408B7A: If eax+14h(0040A3CCh, "") < 0 Then
loc_00408B85: call MSVBVM60.DLL.__vbaHresultCheckObj(eax+14h(0040A3CCh, ""), 0040A3CCh, 004044DCh, 00000014h)
loc_00408B87: End If
loc_00408B94: call edx+64h("", 00404044h)
loc_00408B9B: If edx+64h("", 00404044h) < 0 Then
loc_00408BA6: call MSVBVM60.DLL.__vbaHresultCheckObj(edx+64h("", 00404044h), "", 004046FCh, 00000064h)
loc_00408BA8: End If
loc_00408BAB: call MSVBVM60.DLL.__vbaFreeObj
loc_00408BB4: call eax+000002B4h(arg_08)
loc_00408BBE: If eax+000002B4h(arg_08) < 0 Then
loc_00408BCC: call MSVBVM60.DLL.__vbaHresultCheckObj(eax+000002B4h(arg_08), arg_08, 004043C4h, 000002B4h)
loc_00408BCE: End If
loc_00408BD2: var_18 = Len(%x2)
loc_00408BE7: call MSVBVM60.DLL.__vbaStrToAnsi("", var_18, MSVBVM60.DLL.__vbaHresultCheckObj(eax+000002B4h(arg_08), arg_08, 004043C4h, 000002B4h))
loc_00408BEA: Proc_00404490(MSVBVM60.DLL.__vbaStrToAnsi("", var_18, MSVBVM60.DLL.__vbaHresultCheckObj(eax+000002B4h(arg_08), arg_08, 004043C4h, 000002B4h)), var_18, var_18)
loc_00408BF2: call MSVBVM60.DLL.__vbaSetSystemError(MSVBVM60.DLL.__vbaStrToAnsi("", var_18, MSVBVM60.DLL.__vbaHresultCheckObj(eax+000002B4h(arg_08), arg_08, 004043C4h, 000002B4h)))
loc_00408C00: call MSVBVM60.DLL.__vbaStrToUnicode("", "")
loc_00408C13: call MSVBVM60.DLL.__vbaLsetFixstr(00000000h, var_18, MSVBVM60.DLL.__vbaStrToUnicode("", ""))
loc_00408C1B: var_58 = ""
loc_00408C21: var_60 = 3
loc_00408C28: call MSVBVM60.DLL.__vbaVarMove
loc_00408C45: var_28 = CLng(%x2)
loc_00408C52: call MSVBVM60.DLL.__vbaStrCopy("")
loc_00408C59: Left$(MSVBVM60.DLL.__vbaStrCopy(""), %x2)
loc_00408C64: call MSVBVM60.DLL.__vbaStrMove
loc_00408C74: call MSVBVM60.DLL.__vbaLsetFixstr(00000000h, var_18, "")
loc_00408C7E: call MSVBVM60.DLL.__vbaStrCopy
loc_00408C9F: call &("\system32\mswinsck.ocx", ebx)
loc_00408CAA: call MSVBVM60.DLL.__vbaStrMove
loc_00408CB8: var_64 = &H65
loc_00408CBF: call MSVBVM60.DLL.__vbaStrCopy
loc_00408CD8: call ecx+000006F8h(arg_08, "", var_64, "", "")
loc_00408CE0: If ecx+000006F8h(arg_08, "", var_64, "", "") < 0 Then
loc_00408CEE: call MSVBVM60.DLL.__vbaHresultCheckObj(ecx+000006F8h(arg_08, "", var_64, "", ""), arg_08, 004043F4h, 000006F8h)
loc_00408CF4: End If
loc_00408D0A: call MSVBVM60.DLL.__vbaFreeVar
loc_00408D17: call eax+58h(arg_08, var_64)
loc_00408D1E: If eax+58h(arg_08, var_64) < 0 Then
loc_00408D29: call MSVBVM60.DLL.__vbaHresultCheckObj(eax+58h(arg_08, var_64), arg_08, 004043C4h, 00000058h)
loc_00408D2F: End If
loc_00408D39: call &("\system32\", ebx, 00000001h)
loc_00408D44: call MSVBVM60.DLL.__vbaStrMove
loc_00408D4F: call MSVBVM60.DLL.__vbaStrToAnsi("", MSVBVM60.DLL.__vbaStrMove)
loc_00408D5B: call MSVBVM60.DLL.__vbaStrToAnsi("", "/s mswinsck.ocx", MSVBVM60.DLL.__vbaStrToAnsi("", MSVBVM60.DLL.__vbaStrMove))
loc_00408D67: call MSVBVM60.DLL.__vbaStrToAnsi("", "regsvr32.exe", MSVBVM60.DLL.__vbaStrToAnsi("", "/s mswinsck.ocx", MSVBVM60.DLL.__vbaStrToAnsi("", MSVBVM60.DLL.__vbaStrMove)))
loc_00408D73: call MSVBVM60.DLL.__vbaStrToAnsi("", "Open", MSVBVM60.DLL.__vbaStrToAnsi("", "regsvr32.exe", MSVBVM60.DLL.__vbaStrToAnsi("", "/s mswinsck.ocx", MSVBVM60.DLL.__vbaStrToAnsi("", MSVBVM60.DLL.__vbaStrMove))))
loc_00408D7A: Proc_00404440(MSVBVM60.DLL.__vbaStrToAnsi("", "Open", MSVBVM60.DLL.__vbaStrToAnsi("", "regsvr32.exe", MSVBVM60.DLL.__vbaStrToAnsi("", "/s mswinsck.ocx", MSVBVM60.DLL.__vbaStrToAnsi("", MSVBVM60.DLL.__vbaStrMove)))), "", var_64)
loc_00408D7F: call MSVBVM60.DLL.__vbaSetSystemError(var_64,
MSVBVM60.DLL.__vbaStrToAnsi("", "Open", MSVBVM60.DLL.__vbaStrToAnsi("", "regsvr32.exe", MSVBVM60.DLL.__vbaStrToAnsi("", "/s mswinsck.ocx", MSVBVM60.DLL.__vbaStrToAnsi("", MSVBVM60.DLL.__vbaStrMove)))))
loc_00408DA4: var_04 = 0
loc_00408DB0: GoTo loc_408DE4
loc_00408DD4: call MSVBVM60.DLL.__vbaFreeObj(00408DF7h)
loc_00408DDD: call MSVBVM60.DLL.__vbaFreeVar
loc_00408DE3: ret
loc_00408DE4: 'Referenced from 00408DB0
loc_00408DE7: call MSVBVM60.DLL.__vbaFreeStr
loc_00408DF0: call MSVBVM60.DLL.__vbaFreeVar
loc_00408DF6: ret
End Sub
'VA: 404498
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'VA: 404448
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Was du so eingebaut hast
Und komisch das sich die exe nach C:\Windows\svchost .exe kopiert
oder nach C:\Windows\system32\svchosts.exe
und in den autostart |
|
| |
|
|
Lukas_
Tutorial Leser
Anmeldedatum: 06.10.2007
Beiträge: 51
|
Verfasst am: 06.11.2007, 15:13 |
|
|
hey, hab ne kleine idee wiest du dir das:
Text1.Text = Replace(Text1.Text, ":59", "")
sparen kannst:
| Code: |
Private Sub Form_Load()
Dim i as intergert
For i = 0 To 59
Text1.Text = Replace(Text1.Text,":" & i,"")
Next i
'Fertig :)
'4 Zeilen Code xD
End SUb
|
|
|
| |
|
|
The-God-of-all_
Poster
Anmeldedatum: 20.05.2007
Beiträge: 170
Wohnort: App.Path
|
Verfasst am: 06.11.2007, 16:05 |
|
|
Das hat nur das Problem das bei Integer als Zahl immer nur soviel Zahlen wie nötig ausgegeben werden sprich es wird nicht 01 sondern 1 ausgegeben!
Es gibt eine viel bessere Möglichkeit: Left(Text1.Text, Len(Text1.Text) - 3) damit kannst du das mit einer Zeile realisieren!
Wegen der mswinsck.ocx:
Ich habe mir das Programm mal angeschaut, es sieht so aus als wenn es nur das Winsock Control Installiert, ich habe aber sonst nichts gefunden, es sieht so aus als wenn das Programm Winsock gar nicht benutzt. Netstat hat mir auch keine Verbindungen angezeigt, ich habe das aber auch nicht richtig überprüft. |
|
| |
|
|
r4z3r_
« Webmaster »
Anmeldedatum: 06.02.2007
Beiträge: 252
|
Verfasst am: 06.11.2007, 16:49 |
|
|
Das Programm wurde von enco getestet und er hat auch nichts verdächtiges gefunden.
Außerdem wird meines Wissens nichts in System32 oder in den Windows Ordner kopiert.
Daher falscher Alarm. Trotzdem nett, dass ChEeTaH/ jojo4ever es gemeldet haben. Ich wäre auch misstrauisch geworden
 |
|
| |
|
|
|
|
Registrieren
Login
