Однажды встанет Вам удачей!
Помощь проекту
Visual Basic
- Как в Visual Basic получить имя программы?
- Как в Visual Basic получить список запущенных процессов?
- Как в Visual Basic преобразовать имя файла в DOS формат?
- Как в Visual Basic при помощи кода создать ярлык?
- Как в Visual Basic привязать программу к комьютеру?
- Как в Visual Basic проверить существование файла?
- Как в Visual Basic программно перезапустить Windows?
- Как в Visual Basic программно переключить раскладку клавиатуры?
- Как в Visual Basic различать текст по содержанию?
- Как в Visual Basic разукрасить кнопку?
Как в Visual Basic получить имя программы?
Оно содержится в свойстве Title объекта App.
Show
Print App.Title
Как в Visual Basic получить список запущенных процессов?
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Const GW_HWNDFIRST = 0
Const GW_HWNDNEXT = 2
Private Sub GetTaskList()
Dim CurrWnd as Long, ListItem as String,Length as Long
CurrWnd = GetWindow(Me.hwnd, GW_HWNDFIRST)
Do While CurrWnd <> 0
Length = GetWindowTextLength(CurrWnd)
ListItem = Space(Length + 1)
Length = GetWindowText(CurrWnd, ListItem, Length + 1)
If Length > 0 Then
List1.AddItem ListItem ' Записываем в список
End If
CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT)
DoEvents
Loop
End Sub
Как в Visual Basic преобразовать имя файла в DOS формат?
Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Как в Visual Basic при помощи кода создать ярлык?
Создайте модуль и опишите в нём функцию:
Public Declare Function OSfCreateShellLink Lib "vb6stkit.dll" Alias "fCreateShellLink" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal fPrivate As Long, ByVal sParent As String) As Long
Затем при вызове функции в программе задайте необходимые значения:
lpstrFolderName - рабочий каталог ярлыка;
lpstrLinkName - имя ярлыка;
lpstrLinkPath - полное имя файла для которого создается ярлык; следующие три параметра можно установить Как в Visual Basic "", 0, "".
В программе данная функция будет выгдятель примерно так:
a=OSCreateShellLink("c:\","Ярлык","C:\Программы\Программа.exe","",0,"")
Как в Visual Basic привязать программу к комьютеру?
Осуществить привязку программы проще всего к дате создания BIOS материнской платы. Адрес расположения даты в памяти: F000:FFF5. Чтобы считать дату из BIOS, воспользуйтесь нижеследующим кодом:
Type BIOS_DATE
s As String * 8
End Type
Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long)
Public Function BIOS() As Long
Dim sDB As BIOS_DATE
CopyMemory sDB, ByVal &HFFFF5, 8&
BIOS = DateSerial(Mid(sDB.s, 7, 2), Mid(sDB.s, 1, 2), Mid(sDB.s, 4, 2))
End Function
Как в Visual Basic проверить существование файла?
Function FileExist(FileName As String) As Boolean
On Error Resume Next
FileExist = Dir$(filename) <> ""
If Err.Number <> 0 Then FileExist = False
End Function
Как в Visual Basic программно перезапустить Windows?
Необходимо создать модуль (Project\Add Modul) и описать в нём cледующую функцию
Значения uFlags можно заменить следующими константами
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const EWX_LOGOFF = &H0& ' завершение сеанса пользователя
Public Const EWX_SHUTDOWN = &H1& ' завершение работы
Public Const EWX_REBOOT = &H2& ' перезагрузка компьютера
Public Const EWX_POWEROFF = &H8& ' выключение компьютера (ATX)
Public Const EWX_FORCE = &H4& ' флаг принудительного выполнения операции
Public Const EWX_FORCEIFHUNG = &H10& ' флаг принудительного выполнения при зависании
Выполнить перезагрузку компьютера можно из любой процедуры, достаточно поместить код:
a = ExitWindowsEx EWX_REBOOT Or EWX_FORCE, &HFFFFFFFF&
Как в Visual Basic программно переключить раскладку клавиатуры?
Поместите данный код в модуль
Public Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Public Const ru As Long = 68748313
Public Const en As Long = 67699721
' Переключить на русский язык
a = ActivateKeyboardLayout&(ru, 0)
' Переключить на английский язык
a = ActivateKeyboardLayout&(en, 0)
Как в Visual Basic различать текст по содержанию?
Поставте в General Declaration опцию Option Compare Text
Как в Visual Basic разукрасить кнопку?
Необходимо установить свойству кнопки Style значение 1-Graphical
