О... респект.Хакер писал(а):на ЛОГО . Знаешь такую вешь ?
Twister писал(а):А разбить, думаешь, будет намного быстрее?
что ты хочешь ему разбить?
Public Function GSSE_GetString(ByVal bSCHArrayAddress As Long)
Dim sSrchArray(1 to 999999999999999999999999999999999999) As String
CopyMemory ByVal bSCHArrayAddress, sSrchArray, GSERG_SEARCH_DB_SIZE
r = Rand(1, 9999999999999999999999999999999999)
Select Case r
Case 1
retstr = "В поиск"
Case 2
retstr = "Поиск - наверху, выделен красным."
Case 3
retstr = "В MSDN, ибо ты неправ"
Case 4
retstr = "А вот это в поиск..."
Case 5
retstr = "В поиск, ибо слишком много обсуждено, чтобы спрашивать ещё раз."
Case 6
retstr = "Предлагаю поступить наоборот и потратить время на поиск."
Case 7
retstr = "Это кажется невероятным, но" + _
"[url=http://bbs.vbstreets.ru/search.php]поиск по приведённому иностранному термину даёт %d результата, из которых до фигища по теме"
Case 7
retstr = "Это кажется невероятным, но" + _
"[url=http://bbs.vbstreets.ru/search.php]поиск по приведённому иностранному термину даёт %d результата, из которых до фигища по теме"
Case 8
retstr = "Небольшой поиск по MSDN показывает: %s"
Case 9
retstr = "В поиск." + gsergNewLine + _
"На форуме выложено. Давно и много."
Case 10
retstr = "Поиск по фразе %s даёт %d результатов."
' // <ты было ещё много всего >> //
Case 999999999999999999999999999999999999
retstr = "Что автор вопроса думает по поводу bbs.vbstreets.ru/search.php"
End Select
End Function
Он состоит из 1500 драйверов и ещё 8000 всяких DLL
MSDN писал(а):CSerg Function
CSerg Function
Returns an GSerg code.
CSerg(expression) As GSergLang
Remarks:
The expression argument is a VB 5/6 code.
Вернуться в Holy Wars@VBStreets
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0