Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[TuT]Kilka Przydatnych kodów i Opisów :)

b4rt4z

Rekomendowane odpowiedzi

b4rt4z Specjalista

b4rt4z

Opublikowano
Specjalista

b4rt4z

Opublikowano

Siemka dzisiaj pokaże wam / dam Source Code/ i opis :

 

1) Informacje o waszym kompie

2) Skąd ściągnąć i jak zainstalować MS WinSock 6.0

3) Jak zmienić ikone naszego programu (tą na pulpicie)

4) Kod na aktualną datę i godzinę

5) Jak wysłać e-maila z swojego programu

6) Jak aktualizować nasze dane np. w Tools'ie

 

 

 

 

 

 

 

 

1)

 

 

Oto Source Code dzięki któremu będziecie mogli zobaczyć informacja o waszym kompie :

-Nazwa Pc'ta

-Nazwa użytkownika

-Połączenie z internetem (aktywne/nieaktywne)

-Rozdzielczość

-Adress IP (Potrzebne jest MS WinSock 6.0 w pkt. 2) pokaże jak to zainstalować)

-Dostępna pamięć fizyczna/wirtualna

-Całkowita pamięć fizyczna/wirtualna

-Nazwa systemu

-Nazwa Platformy

-Wersja systemu

-Nazwa procesora

-Prędkość procesora

 

 

 

Public Class Form1
Dim NetAvailable As String
Dim Percent As Integer

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

	Dim APM As Integer = My.Computer.Info.AvailablePhysicalMemory / 1000000
	Dim AVM As Integer = My.Computer.Info.AvailableVirtualMemory / 1000000
	Dim TPM As Integer = My.Computer.Info.TotalPhysicalMemory / 1000000
	Dim TVM As Integer = My.Computer.Info.TotalVirtualMemory / 1000000
	Dim NAMECOMP As String = My.Computer.Name
	Dim IPAdress As String = AxWinsock1.LocalIP
	Dim USERNAME As String = SystemInformation.UserName
	Dim MonitorH As Integer = SystemInformation.PrimaryMonitorSize.Height
	Dim MonitorW As Integer = SystemInformation.PrimaryMonitorSize.Width
	Dim Name As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\SYSTEM\Ce­ntralProcessor\0", "ProcessorNameString", Nothing)
	Dim Speed As String = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\SYSTEM\Ce­ntralProcessor\0", "~MHz", Nothing) & " MHz"
	ProgressBar1.Maximum = TPM
	ProgressBar1.Value = APM
	Percent = (ProgressBar1.Value / TPM) * 100
	Label3.Text = Percent & " %"
	If My.Computer.Network.IsAvailable = True Then
		NetAvailable = " Aktywne!"
	ElseIf My.Computer.Network.IsAvailable = False Then
		NetAvailable = " Nie Aktywne!"
	End If
	Label1.Text = "Nazwa PC'ta: " & NAMECOMP & vbNewLine & _
	"Nazwa Użytkownika: " & USERNAME & vbNewLine & _
	"Rozdzielczość: " & MonitorW & " x " & MonitorH & vbNewLine & _
	"Połączenie z internetem:" & NetAvailable & vbNewLine & _
	"Adress IP:" & IPAdress & vbNewLine & _
	"Dostępna pamięć fizyczna: " & APM & " MB" & vbNewLine & _
	"Dostępna pamięć wirtualna: " & AVM & " MB" & vbNewLine & _
	"Całkowita pamięć fizyczna: " & TPM & " MB" & vbNewLine & _
	"Całkowita pamięć wirtualna: " & TVM & " MB" & vbNewLine & _
	"Nazwa Systemu: " & My.Computer.Info.OSFullName & vbNewLine & _
	"Nazwa Platformy: " & My.Computer.Info.OSPlatform & vbNewLine & _
	"Wersja Systemu: " & My.Computer.Info.OSVersion & vbNewLine & _
	"Nazwa Processora :" & Name & vbNewLine & _
	"Prędkość Procesora :" & Speed & vbNewLine
End Sub

 

 

2)

 

 

Link: 

http://speedy.sh/ejDYs/MSWINSCK.OCX

Skan : 

https://www.virustotal.com/file/bf7e47c16d7e1c0e88534f4ef95e09d0fd821ed1a06b0d95a389b35364b63ff5/analysis/

Jak zainstalować MS WinSock 6.0??

Wystarczy wrzucić ściągnięty plik to :

C:\Windows\System32

Następnie uruchamiamy program "Uruchom" (Ctrl + R)

i wpisujemy :

regsvr32 C:\Windows\System32\MSWINSCK.ocx

I już mamy :)

 

Jak użyć MS WinSock w VB??

Wchodzimy w "Toolbox" klikamy PPM (Prawym Przyciskiem myszy) i wybieramy "Choose Items..." następnie "COM Components" i szukamy "Microsoft WinSock Control, version6.0"

zaznaczamy i klikamy "OK"

 

 

 

3)

 

 

Wchodzimy w "My Project"

30416732.png

Następnie wybieramy :

iconam.png

UWAGA !! wasza ikona zawsze musi mieć końcówkę .ico !!

 

 

4)

 

 

Potrzebować będziemy 1 Timera i 2 Labelt'y (albo coś inngo niemuszą być koniecznie Labelt'y :) )

następnie kilkamy 2(dwa) razy na tzw. Forme (czyli na okno programu)żeby wpisać kod :

 

  Timer1.Enabled = True
	Label1.Text = TimeOfDay
	Label2.Text = DateString

 

I tyle :)

 

 

 

5)

 

 

Oto Kod umożliwiający tą czynność :

 

 Imports System
Imports System.Net.Mail
Imports System.Threading
Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim smtpServer As New SmtpClient()

		Dim mail As New MailMessage()

		smtpServer.Credentials = New Net.NetworkCredential("[email protected]", "Hasło do poczty")

		smtpServer.Port = 587

		smtpServer.Host = "smtp.gmail.com"

		smtpServer.EnableSsl = True

		mail = New MailMessage()

		mail.From = New MailAddress("[email protected]")

		mail.To.Add("[email protected]")

		mail.Subject = ("Temat Maila")

		mail.Body = "Tekst wiadomości"

		smtpServer.Send(mail)



	End Sub
End Class

 

Oczywiście możemy dać inną pocztne ale musicie znać Port i Host danej poczty

 

 

6)

 

 

Jeszcze niedawno wiele osób tego niewiedziało jak to zrobić (niewiem jak to jest teraz...)

ale sprawa jest bardzo prosta :

Klikamy 2(dwa) razy na Buttona i wpisujemy :

		 If My.Computer.FileSystem.FileExists("Lokalizacja Pliku *1") Then
		My.Computer.FileSystem.DeleteFile("Lokalizacja Pliku *1")
		My.Computer.Network.DownloadFile("Strona z plikem najlepiej mieć własną np. darmową na cba.pl", "Lokalizacja Pliku *1 gdzie ma on być zapisany")
		'Lokalizacja Pliku *1 - musi być wszędzie taka sama!!
	Else
		My.Computer.Network.DownloadFile("Strona z plikem najlepiej mieć własną np. darmową na cba.pl", "Lokalizacja Pliku *1 gdzie ma on być zapisany")
	End If

 

dlaczego właśnie tak??

bo w VB nie dodali jeszcze opcji zamień plik

dlatego program będzie wykonywał takie czynności:

1)Szukał danego pliku

Jeżeli go znajdzie to:

2)Usuwał i ściągał

a jeżeli nie znajdzie to tylko ściągał :)

 

 

Jeżeli będziecie mieli jakieś pytania lub problemy piszcie tu w temacie lub na PW

Pozdrawiam b4rt4z :)

 

@down

ojtam oj tam Literówka xD

1379095800-U384748.png

ExMod | ExMentor | ExChampion | ExMoT | Blue Member | Tagger

JacoH Legenda

JacoH

Opublikowano
Legenda

JacoH

Opublikowano

TuT super, mi się bardzo przyda. Masz LIKE IT

 

Masz błąd literowy :P " Zkąd " w drugi punkcie. Lepiej to popraw.

"Jesteśmy ludźmi, bo popełniamy błędy i na nich się uczymy."

b4rt4z Specjalista

b4rt4z

Opublikowano
Specjalista

b4rt4z

  • Autor
Opublikowano

@UP

Kiedy dokładnie ci to wyskakuje?? jak chcesz to dodać do toolbox'a czy kiedy??

 

@down

jak byś mógł nagrać ten filmik....

a i takie pytanko ty masz Visual Basic 2006 czy 2008 czy 2010 ??

1379095800-U384748.png

ExMod | ExMentor | ExChampion | ExMoT | Blue Member | Tagger

666robo666 Budowniczy

666robo666

Opublikowano
Budowniczy

666robo666

Opublikowano

wyskakuje mi to wtedy gdy chce to dodac tzn jak to klikne i zaznacze w from1 na projekt i wtedy to okno mi wyskakuje moze nagrac jakis 5sek filmik z tym bledem ?? ? ? ?? ? ?


KTO BOTUJE TEN URKI NIE ŻAŁUJE

Makin Admin Cienia

Makin

Opublikowano
Admin Cienia

Makin

Opublikowano

4) Kod na aktualną datę i godzinę

 

Co się stanie jeśli użytkownik posiada (na Win'ie) błędna datę i godzinę :>?

Otóż wtedy funkcja pokaże nam BŁĘDNĄ datę i godzinę :>

EXPmIpC.gif

b4rt4z Specjalista

b4rt4z

Opublikowano
Specjalista

b4rt4z

  • Autor
Opublikowano

@UP

<wow> a coś ty myślał?? przecież program wtedy nie "ciągnie" danych z neta tylko z twojego kompa

więc to chyba logiczne...

 

PS: po co komuś nie aktualna data i godzina na kompie... o.O

1379095800-U384748.png

ExMod | ExMentor | ExChampion | ExMoT | Blue Member | Tagger

JacoH Legenda

JacoH

Opublikowano
Legenda

JacoH

Opublikowano

@UP a umiał byś zrobić tak, żeby brał godzinę z neta ??

"Jesteśmy ludźmi, bo popełniamy błędy i na nich się uczymy."

b4rt4z Specjalista

b4rt4z

Opublikowano
Specjalista

b4rt4z

  • Autor
Opublikowano

@2UP

Nie za bardzo...

 

@UP

Jeżeli chcesz mnie oskarżyć o plagiat to prosze bardzo ale :

1)Pokaż dowód!!

2)każdy może napisać kod w VB a inny może mu wypomnieć że on go pierwszy napisał więc pomyśl zanim coś napiszesz....

 

PS: Nie pisałem nic że ja to są w 100% moje kody ani nic w tym stylu więc kłania się na dodatek czytanie ze zrozumieniem !!

1379095800-U384748.png

ExMod | ExMentor | ExChampion | ExMoT | Blue Member | Tagger

  • 2 tygodnie później...
  • 2 tygodnie później...
misterofworld Nowicjusz

misterofworld

Opublikowano
Nowicjusz

misterofworld

Opublikowano

Dodaj

Label1.Text = ("tekst")

Progressbar1.Value = 25 (ilość, kresek, długośc paska)

Bullshit, bullshit!

Label.Text = String.Format("{0}", "tekst")

 

Wracając do prostego kodu

Label.Text = "tekst"

 

 

Poza tym dalej twierdzę, że kod zerżnięty z innych stron.

JuanPleXxx Budowniczy

JuanPleXxx

Opublikowano
Budowniczy

JuanPleXxx

Opublikowano

Bullshit, bullshit!

Label.Text = String.Format("{0}", "tekst")

 

Wracając do prostego kodu

Label.Text = "tekst"

 

 

Poza tym dalej twierdzę, że kod zerżnięty z innych stron.

 

Chłopie, te kody dla newbie co ty gadasz. WYJDZ, Ten kod z timerem do głupi potrafi. Wez lepiej się wyloguj, i nie wmawiaj mu kopii... Twoje posty to ullshit.

 

 

hqdefault.jpg?feature=og

 

 

  • 3 tygodnie później...
b4rt4z Specjalista

b4rt4z

Opublikowano
Specjalista

b4rt4z

  • Autor
Opublikowano

@2UP

W 10% kody są zerżnięte z innych stron...

bo fakt faktem nie jestem zawansowany w VB do czego się przyznaje

 

@UP

wiem że kilkanaście kodów jest "dla noobów" ale dodałem je bo może komuś kto zaczyna przygode z VB mogą nieco pomóc :)

1379095800-U384748.png

ExMod | ExMentor | ExChampion | ExMoT | Blue Member | Tagger

MiszczuOfWorldG Rekrut

MiszczuOfWorldG

Opublikowano
Rekrut

MiszczuOfWorldG

Opublikowano

Chłopie, te kody dla newbie co ty gadasz. WYJDZ, Ten kod z timerem do głupi potrafi. Wez lepiej się wyloguj, i nie wmawiaj mu kopii... Twoje posty to ullshit.

Skoro są dla newbie, to najlepiej uczyć ich złego kodu! Bo przecież to newbie...

JuanPleXxx Budowniczy

JuanPleXxx

Opublikowano
Budowniczy

JuanPleXxx

Opublikowano

Kolejny, gdy ktoś chcę zacząć od spambota zacząć:

 

Tworzymy 1 textbox i klikamy 2x na niego:

 

Timer1.Interval = TextBox2.Text

 

Czyli w textbox wpisujemy 5000 i oznacza to ze co 5 sekund bd wysylal wiadomość.

 

 

hqdefault.jpg?feature=og

 

 

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...