Visual Basic 6.0 - Windows HELP

Привет всем!

Ребята, пожскажите пожалуйста стоящую и, желательно, бесплатную программу, в которой
можно сделать сабж, да еще и в режиму WYSIWYG

--

Максим Кнышов [ knyshow#mail.dsip.net ] [ http://gbu.dvostok.com ]

Последняя версия программы Golden BackUp ( http://gbu.dvostok.com ) - 0.0.188 Beta 9





* Origin: КПКП "Транс Агентство" (2:5020/400)


Привет Igor!



















Уверен - перепрошивал биос

Hет, но HDD имеет


Hе мои проблемы будут, так как в проге будет написано: распространяется
As Is, автор ответственности не несет


Смотри ответ на предыдущий вопрос


Hет, просто больше ничего в голову не приходит
Все существующие методы ломаются быстрее, чем захочется платить


С уважением, Sergey (web: http://gpch.narod.ru email: gpch_soft [@] tula.net)

* Origin: Тети до 16 лет не допускаются. (2:5022/63.30)




Hello, Sergey! You wrote to Igor Evgrafov on Mon, 01 Mar 2004 17:29:30 +0300:




Браво! И на этом основании ты делаешь вывод что у остальных он тоже не защищен от записи :)




Час от часу не легче :)






мдя





no comments






Это ты серьезно все? Hе придуряешься? Тогда к доктору, срочно...


* Origin: Cronyx Plus ISP (2:5020/400)




Привет Igor!

Слющий, предлагаю такую защиту: Информация о каждой копии лицензии тянется из инета...
Развивай.

Сразу отвечаю на твой вопрос: "А если у чела нету инета"
Ответ: As Is... ...ответственности не несещь...


--

Максим Кнышов [ knyshow#mail.dsip.net ] [ http://gbu.dvostok.com ]

Последняя версия программы Golden BackUp ( http://gbu.dvostok.com ) - 0.0.188 Beta 9






* Origin: КПКП "Транс Агентство" (2:5020/400)


Мы где-то виделись, Максим?






Microsoft Word (или Microsoft FrontPage) + Microsoft HTMLHelp Workshop.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)




Привет Sergey!



Я когда-то писал данные в SYSTEM.ini или в WIN.ini (точно не помню), но тогда у всех
стояла 98 винда...

--

Максим Кнышов [ knyshow#mail.dsip.net ] [ http://gbu.dvostok.com ]

Последняя версия программы Golden BackUp ( http://gbu.dvostok.com ) - 0.0.188 Beta 9






* Origin: КПКП "Транс Агентство" (2:5020/400)





CreateThread не самый лучший выход!!! Hо если так и только так, то надо
пользоваться флагами

''''''''FORM''''''''''''''

Public hThread&
Public threadSTATUS%

Private Sub Command1_Click()
Dim ID As Long
Dim resultcode&
Dim lparam As Long
lparam = CLng(Text2.Text)
hThread = CreateThread(ByVal 0&, 0, AddressOf ThreadProc, ByVal
lparam, &H2, ID)
If hThread = 0 Then
Text1.Text = Text1.Text & "Starting Thread Failed" & vbCrLf
Exit Sub
Else
threadSTATUS = 1
Command1.Enabled = False
Command2.Enabled = True
End If
End Sub

Private Sub Command2_Click()
Dim resultcode&
threadSTATUS = 0
resultcode& = CloseHandle(hThread)
If resultcode& = 0 Then
Text1.Text = Text1.Text & "ERROR" & vbCrLf
End If
hThread = 0
Command1.Enabled = True
End Sub

____________________________________________________________________________

''''''''MODULE''''''

Public Function ThreadProc(ByVal Value As Long) As Long
Select Case Value
Case 1
Step1
Case 2
Step2
End Select
Form1.Command1.Enabled = True
Form1.SetFocus
ThreadProc = 0
End Function

Private Function Step1() As Long
Dim i As Long
For i = 0 To 10000
Form1.Text1.Text = Trim$(i)
If threadSTATUS = 0 Then
Exit For
End If
Next i
Step1 = i
End Function

Private Function Step2() As Long
Dim i As Long
For i = 0 To 100 Step 2
Form1.Text1.Text = Trim$(i)
If threadSTATUS = 0 Then
Exit For
End If
Next i
Step2 = i
End Function












* Origin: Demos online service (2:5020/400)




Igor Evgrafov wrote:


Ох... Теперь при попытке запустить или даже откомпилировать (Make) Бэйсик
вылетает из памяти тихо, без сообщения об ошибке :)

--
Best regards
(M)ike
При ответе на e-mail убрать из адреса NOS

* Origin: Best antimagic/antiUFO cure: http://skeptik.net (2:5020/400)


Привет, All!

Public DSExeptions As New System.Data.DataSet

...

DSExeptions.Tables.Add("TextExeptions")
DSExeptions.Tables("TextExeptions").Columns.Add("Exeption")
DSExeptions.Tables("TextExeptions").Columns.Add("Text")

DataExeptions.DataSource = DSExeptions.Tables("TextExeptions")
'DataExeptions as DataGrid - сделан в дизайнере форм
...

With DSExeptions.Tables("TextExeptions")
.Clear()
.Rows.Add(New Object() {"1", "10"})
.Rows.Add(New Object() {"2", "20"})
.Rows.Add(New Object() {"3", "30"})
Dim r As DataRow
r = .NewRow()
r.Item(0) = "sdfvgzxgv"
r.Item(1) = "xvzfvxz"
.Rows.InsertAt(r, 0)

End With

новая строка добавляется в конец таблицы, а не в начало.
из-за чего может быть проблема?

С уважением, Nick!
np: кулеры, винты, уличный шум, etc.

* Origin: Ловись коннект большой и маленький! (2:5038/15.1)


Привет /*Sergey*/ /*Chubchenko*/ ! Как живете? Можете?

25-Feb-04 14:51:24, Sergey Chubchenko писал к All
*По* *теме* : Защита











Если я yзнаю, что какая-то пpога, да еще на VB писаная попытаеся мне что-то
во флеш матеpинки писать, я HИКОГДА не бyдy такой пpогpаммой пользоваться.


www.sly2m.da.ru sly2m [@] mail.ru ICQ:35387403

* Origin: Инженер механических душ... (2:5064/5.33)