[ Visual Basic / VBScript (без WEB-кодинга) ] — начинающим: задаем вопросы

SuperTroll · 29 Mar 2011

В этой специальной теме новички могут задавать "элементарные" вопросы по синтаксису и прочим начинаниям в языке. Аспекты программирования на данном языке под Web рекомендуется обсуждать в соседнем разделе (браузерный VBScript, кодинг под IIS и проч.).
.
Moderator.
__________________________________________

Не флуди,убьет!

Тут я постепенно выкладываю примеры кода, которые помогали мне в изучении языка.

Запуск файла

На форму кидаем Process

Code:

Process1.StartInfo.FileName = ("C:\WINDOWS\system32\calc.exe")
Process1.Start()

Удаление файла

Code:

Kill("c:\1.txt")

Информация о Информация о системе

Code:

Label1.Text = My.Computer.Info.OSFullName
Label2.Text = My.Computer.Info.OSPlatform
Label3.Text = My.Computer.Info.OSVersion

Переход на сайт

Code:

System.Diagnostics.Process.Start("www.google.ru")

Screenshot

Code:

      Try
            Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
            Dim screenGrab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
            Dim q As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenGrab)
            q.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)
            screenGrab.Save("c:\Screen.jpeg")
        Catch ex As Exception
            MsgBox("Error", MsgBoxStyle.Critical, "Error!")
        End Try

Снятие процесса

Code:

        Dim pList() As System.Diagnostics.Process = _
      System.Diagnostics.Process.GetProcessesByName("taskmgr")
        For Each proc As System.Diagnostics.Process In pList
            proc.Kill()
        Next

Проигрывание музыки

Только wav формат!

Code:

  My.Computer.Audio.Play("C:\instal\1.wav", AudioPlayMode.Background)

Установка курсора в определённую точку

Code:

Cursor.Position = New Point(192, 123)

Local ip

На форму кидаем TextBox1

Code:

Dim ip As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName)
TextBox1.Text = ip.AddressList.GetValue(0).ToString

OpenFileDialog

На форму кидаем TextBox1 и OpenFileDialog1

Code:

OpenFileDialog1.ShowDialog()
TextBox1.Text = (OpenFileDialog1.FileName)

ProgressBar

На форму кидаем ProgressBar1

Code:

ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value = ProgressBar1.Maximum Then
MsgBox("Done!")
End If

Создание папки

Code:

MkDir("c:\Папка")

Случайные числа

Code:

Dim num As String
Randomize()
Dim value As Integer = CInt(Int((9999 * Rnd()) + 1))
num = (value)

Закачка файлов из Интернета

Code:

My.Computer.Network.DownloadFile("www.test.ru\1.txt", "c:\Antichat.ru.txt")

Время

Code:

Label1.Text = CStr(TimeOfDay)

Ping

Code:

If My.Computer.Network.Ping("www.google.ru", 1000) Then
MsgBox("Сервер работает.")
Else
MsgBox("Сервер не работает.")
End If

Переименовываем папку

Code:

My.Computer.FileSystem.MoveDirectory("C:\test", "C:\Antichat.ru", True)

Проверяем существование файла

Code:

        If My.Computer.FileSystem.FileExists("c:\test.txt") Then
MsgBox("File found.")
Else
MsgBox("File not found.")
End If

Имя компьютера

Code:

MsgBox(My.Computer.Name)

Имитируем нажатия клавиш клавиатуры

Code:

My.Computer.Keyboard.SendKeys("A")
My.Computer.Keyboard.SendKeys("n")
My.Computer.Keyboard.SendKeys("t")
My.Computer.Keyboard.SendKeys("i")
My.Computer.Keyboard.SendKeys("c")
My.Computer.Keyboard.SendKeys("h")
My.Computer.Keyboard.SendKeys("a")
My.Computer.Keyboard.SendKeys("t")

или

My.Computer.Keyboard.SendKeys("Antichat")

Цвет пикселя под курсором

На форму кидаем Label1 и PictureBox1

Code:

Dim a As New Drawing.Bitmap(1, 1)
Dim b As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(a)
b.CopyFromScreen(New Drawing.Point(Cursor.Position.X, Cursor.Position.Y), New Drawing.Point(0, 0), a.Size)
Dim c As Drawing.Color = a.GetPixel(0, 0)
PictureBox1.BackColor = c
Label1.Text = PictureBox1.BackColor.Name

Получаем заголовок окна, которое находится в фокусе

Объявляем декларации

Code:

Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Integer
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Integer, ByVal lpString As String, ByVal cch As Integer) As Integer

Code:

Dim hWndActive As String
hWndActive = GetForegroundWindow()
Dim capt As String
Dim lenC As Integer
capt = Space(200) 
lenC = GetWindowText(hWndActive, capt, 255) 
Label1.Text = capt

Передаём фокус определённому окну

Объявляем декларации

Code:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowsName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal cCmdShow As Long) As Long

Code:

Dim lFoundWindow As Long
Dim lOK As Long
Dim lOK1 As Long
lFoundWindow = FindWindow(vbNullString, "Диспетчер задач Windows")
If lFoundWindow <> 0 Then
lOK = SetForegroundWindow(lFoundWindow)
lOK1 = ShowWindow(lFoundWindow, 9)
lOK1 = ShowWindow(lFoundWindow, 10)
lFoundWindow = 0
lOK = 0
lOK1 = 0
End If

Переключаем раскладку клавиатуры

Объявляем декларации

Code:

Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal Flags As Long) As Long
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal Flags As Long) As Long
Const KbdRu = "00000419"
Const KbdEn = "00000409"

Ru - En

Code:

  Dim hLayout As Long
hLayout = LoadKeyboardLayout(KbdEn, 0)
ActivateKeyboardLayout(hLayout, 0)

En - Ru

Code:

Dim hLayout As Long
hLayout = LoadKeyboardLayout(KbdRu, 0)
ActivateKeyboardLayout(hLayout, 0)

Считаем MD5 файла

функции

Code:

    Public Function MD5CalcFile(ByVal filepath As String) As String
Using reader As New System.IO.FileStream(filepath, IO.FileMode.Open, IO.FileAccess.Read)
Using md5 As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim hash() As Byte = md5.ComputeHash(reader)
Return ByteArrayToString(hash)
End Using
End Using
End Function

    Private Function ByteArrayToString(ByVal arrInput() As Byte) As String
Dim sb As New System.Text.StringBuilder(arrInput.Length * 2)
For i As Integer = 0 To arrInput.Length - 1
sb.Append(arrInput(i).ToString("X2"))
Next
Return sb.ToString().ToLower
End Function

Code:

TextBox1.Text = MD5CalcFile("c:\test.exe")

MD5 Encrypter

функции

Code:

   Public Shared Function MD5(ByVal Text As String, Optional ByVal Seperator As String = Nothing) As String
Dim Hash As Byte()
Dim Encoder As New System.Text.UTF8Encoding()
Dim Hasher As New System.Security.Cryptography.MD5CryptoServiceProvider()
Hash = Hasher.ComputeHash(Encoder.GetBytes(Text))
Text = Replace(BitConverter.ToString(Hash), "-", Seperator)
Return Text
End Function

Code:

TextBox2.Text = MD5(TextBox1.Text)

Получаем внешний IP

Imports

Code:

Imports System.Text.RegularExpressions
Imports System.Net
Imports System.IO

Code:

Dim FindIP As New System.Net.WebClient
Label1.Text = System.Text.Encoding.ASCII.GetString((FindIP.DownloadData("http://whatismyip.com/automation/n09230945.asp")))
FindIP.Dispose()

Host Name

Imports

Code:

Imports System.Text.RegularExpressions
Imports System.Net
Imports System.IO

Code:

Dim HostNameAs String
HostName= Dns.GetHostName
Label1.Text = HostName

CD-ROM

декларация

Code:

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Открыть дверцу CD-ROM

Code:

Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)

Закрываем дверцу CD-ROM

Code:

Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)

Загрузка файла на сервер по FTP

Code:

    Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://ftp.narod.ru/file.txt"), System.Net.FtpWebRequest)
        request.Credentials = New System.Net.NetworkCredential("Ваш Login", "Ваш Password")
        request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
        Dim file() As Byte = System.IO.File.ReadAllBytes("c:\file.txt")
        Dim strz As System.IO.Stream = request.GetRequestStream()
        strz.Write(file, 0, file.Length)
        strz.Close()
        strz.Dispose()

Убираем программу из TaskBar и прячем форму

Code:

Me.Hide()
Me.ShowInTaskbar = False

Продолжение следует…

Mr.Replica · 1 Apr 2011

Эмм,прости конечно,но в чём смысл темы???Для изучающих VB есть отдельные площадки типо Cyberforum и т.д где всё расписанно вдоль и поперег.

SuperTroll · 1 Apr 2011

Mr.Replica said:

Эмм,прости конечно,но в чём смысл темы???Для изучающих VB есть отдельные площадки типо Cyberforum и т.д где всё расписанно вдоль и поперег.

Click to expand...

кому надо - тот поймёт

sidapas23 · 4 Apr 2011

Помогите мне где находятся компоненты кроме стандартных(general) ничего не нашел.

SuperTroll · 4 Apr 2011

sidapas23 said:

Помогите мне где находятся компоненты кроме стандартных(general) ничего не нашел.

Click to expand...

Если для VB6 то:

P.S.
Ставь Visual Studio 2008 или Visual Studio 2010

GRAFMC · 9 Aug 2011

зараствуйте, помогите, как сделать так что бы из Textbox1 и Textbox2 введённые даные при нажатии на Button1 отправлялись на мыло/аську. Заранее спасибо.

UltraLoh · 9 Aug 2011

GRAFMC said:

зараствуйте, помогите, как сделать так что бы из Textbox1 и Textbox2 введённые даные при нажатии на Button1 отправлялись на мыло/аську. Заранее спасибо.

Click to expand...

Как на ICQ - не знаю, а вот на мыло можно двумя способами:
1. Создать сайт (Например на hostinger.ru), залить на него PHP скрипт, который при обращении к нему отсылает тексты на Ваше мыло.
2. Через SMTP-сервер. Пример на gmail.com :
Code:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim SmtpServer As New SmtpClient()
            Dim mail As New MailMessage()
            SmtpServer.Credentials = New Net.NetworkCredential("твояпочта@gmail.com", "твойпароль")
            SmtpServer.Port = 587
            SmtpServer.Host = "smtp.gmail.com"
            mail = New MailMessage()
            mail.From = New MailAddress("твояпочта@gmail.com")
            mail.To.Add("почтаполучателя@gmail.com")
            mail.Subject = "Тема сообщения"
            SmtpServer.EnableSsl = True
            mail.Body = TextBox1.Text & TextBox2.text
            SmtpServer.Send(mail)
            MsgBox("Сообщение отправлено")
        Catch ex As Exception
            MsgBox("Сообщение не отправлено")
        End Try
    End Sub
    End Sub

rtyy · 10 Aug 2011

Почти всё что выше справедливо лишь для VB.NET и никоим образом не относится ни к классическому Visual Basic, ни уж тем более к VBScript.

rtyy · 10 Aug 2011

VBScript: работа с CD-rom (оригинальный подход).
С помощью контрола Windows Media Player, можно не только открыть трей CD-рома, но также успешно и закрыть:
Code:
openCD()
WSCRIPT.SLEEP 2000
closeCD()

'--------------------
'OPEN
sub openCD
        Set WMP = CreateObject ("WMPlayer.OCX")
                WMP.cdromCollection.Item(0).Eject()
end sub
'--------------------
'CLOSE
sub closeCD
        Set WMP = CreateObject ("WMPlayer.OCX")
                WMP.cdromCollection.Item(0).Eject()
                WMP.cdromCollection.Item(0).Eject()
end sub

Qb1024 · 19 Sep 2011

Как отправить бинарный файл на сервер в виде POST запроса?
Я понимаю, что нужно использовать WebRequest Class, но как туда засунуть файл?

aka_maestro · 25 Sep 2011

VB

ребят, может и глупо но
прошу помощи
мой товарищ находящийся на первом курсе требует от меня следующие.
я в программировании 1.5% из ста

вот задача. я хз что он просит, но сказал выглядит так

denny (22:30:20 25/09/2011)
кароче "ввести с клавиатуры число в десятичной системе и вывести в шестнадцетиричную"

просьба меня сильно не троллить и не пинать.
как я понял вводишь в консоль число, она выдаёт в 16ой системе. помогите с написанием

justonline · 25 Sep 2011

Гугл не?
http://www.cyberforum.ru/vba/thread38130.html

Demon__666 · 16 Oct 2011

как подключить курсорные клавиши методом if chr(keycode) = "?????"

Feonor · 21 Oct 2011

лови

Code:

Dim s As String
s = = Console.ReadLine()
s = s.ToString("X")
Console.Writeline(s)

Demon__666 · 27 Oct 2011

Помогите

каким компонентом можно заменить Panel с 2010 VB в visual basic 6
Дело в том что пишу теннис .. написал его в 2010 VB
вот код :
Public Class Form1
Dim Links As Double = 20
Dim oben As Double = 20

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Ball.Left -= Links
Ball.Top -= oben

If Ball.Top <= 0 Then oben = -25
If Ball.Bottom >= 325 Then oben = +10
If Ball.Left <= -100 Then Links = -20
If Ball.Right >= 1000 Then Links = +20
Plattform1.Top = MousePosition.Y - Me.Location.Y - 50

If Ball.Top > Plattform2.Top Then Plattform2.Top += 15
If Ball.Bottom < Plattform2.Bottom Then Plattform2.Top -= 15

If Ball.Left <= Plattform1.Right Then
If Ball.Bottom >= Plattform1.Top Then Links = -20 Else Label1.Text = "Игрок2 выиграл"
End If

If Ball.Right >= Plattform2.Left Then
If Ball.Bottom >= Plattform2.Top Then Links = +20 Else Label2.Text = "Игрок1 выиграл"
End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Ball.Top = Location.Y = 156
Ball.Top = Location.X = 434
Label1.Text = " Игрок1 "
Label2.Text = " Игрок2 "
End Sub

End Class

De-visible · 27 Oct 2011

Бля это не яп, а конструктор лего... пздц

C00LPack · 27 Oct 2011

De-visible said:

Бля это не яп, а конструктор лего... пздц

Click to expand...

то же самое я могу сказать про делфи\с#\подставить_нужное.

Feonor · 28 Oct 2011

Demon__666 said:

каким компонентом можно заменить Panel с 2010 VB в visual basic 6
...

Click to expand...

из MSDN

In Visual Basic 6.0, the Frame control is used as a container for grouping controls. In Visual Basic 2005, the Frame control is replaced by either the GroupBox control or the Panel control.

Click to expand...

Используй Frame control

2 De-visible, что то новое для себя открыл? хаха))

cerber3000 · 29 Nov 2011

Здравствуйте задали задчку сделать программу которая создает базу данных работников предприятия (информация должна записываться в файл Acess) что могу сказать по функционалу программы то в ней должно вводиться ФИО работника его дата рождения и адрес и год поступления на работу, также чтобы из этой программы можно было распечатать эту информацию. Если сможите помогите пожалуйста пришлите исходник.

pro100_4ydak · 8 Dec 2011

VB6.0
задано 4 числа, найти минимальное по модулю число и каждое из заданных чисел умножить на него

Private Sub Command1_Click()
Dim A, B, C, D As Integer
If Abs(A) < Abs(B) And Abs(A) < Abs(C) And Abs(A) < Abs(D) Then
P1 = A * B And P2 = A * C And P3 = A * D
ElseIf Abs(B) < Abs(A) And Abs(B) < Abs(C) And Abs(B) < Abs(D) Then
P4 = B * A And P5 = B * C And P6 = B * D
ElseIf Abs(C) < Abs(A) And Abs(C) < Abs(B) And Abs(C) < Abs(D) Then
P7 = C * A And P8 = C * B And P9 = C * D
Else: P10 = D * A And P11 = D * B And P12 = D * C
End If
End Sub

не работает... при вводе например а=4 b=3 с =1 d=7 в P10 выдается 0, хотя ответы должны быть в P7,8,9

[ Visual Basic / VBScript (без WEB-кодинга) ] — начинающим: задаем вопросы

SuperTroll Member

Mr.Replica Member

SuperTroll Member

sidapas23 New Member

SuperTroll Member

GRAFMC New Member

UltraLoh New Member

rtyy Member

rtyy Member

Qb1024 New Member

aka_maestro Фрикер

justonline network ninja

Demon__666 New Member

Feonor Elder - Старейшина

Demon__666 New Member

De-visible [NDC] Network develope c0ders

C00LPack Elder - Старейшина

Feonor Elder - Старейшина

cerber3000 Member

pro100_4ydak New Member

Useful Searches

[ Visual Basic / VBScript (без WEB-кодинга) ] — начинающим: задаем вопросы

SuperTroll Member

Mr.Replica Member

SuperTroll Member

sidapas23 New Member

SuperTroll Member

GRAFMC New Member

UltraLoh New Member

rtyy Member

rtyy Member

Qb1024 New Member

aka_maestro Фрикер

justonline network ninja

Demon__666 New Member

Feonor Elder - Старейшина

Demon__666 New Member

De-visible [NDC] Network develope c0ders

C00LPack Elder - Старейшина

Feonor Elder - Старейшина

cerber3000 Member

pro100_4ydak New Member