Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Автокликер Добавлено: 24.08.09 19:36  

Автор вопроса:  $@ny@PG | ICQ: 468469477 
Можно ли в VB 6.0 создать программу автокликер???

Ответить

  Ответы Всего ответов: 10  

Номер ответа: 1
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #1 		Добавлено: 24.08.09 19:38
Можно. А что это такое?)

Ответить

Номер ответа: 2
Автор ответа:
 $@ny@PG



ICQ: 468469477 

Вопросов: 71
Ответов: 196
  Профиль | | #2 Добавлено: 24.08.09 19:56
Программа входит на сайт, с помощью (пароля и логина), потом заходит в определенный раздел сайта и переходит по ссылкам на сайте.

Ответить

Номер ответа: 3
Автор ответа:
 $@ny@PG



ICQ: 468469477 

Вопросов: 71
Ответов: 196
  Профиль | | #3 Добавлено: 24.08.09 20:05
И как это сделать???

Ответить

Номер ответа: 4
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #4 Добавлено: 24.08.09 22:36
И как это сделать???

Да легко.. заплатить мне 100$ и я все сделаю!
Если желаешь бесплатно, то изучай программирование...

Ответить

Номер ответа: 5
Автор ответа:
 UnDeAdZak



Вопросов: 80
Ответов: 476
  Профиль | | #5 Добавлено: 24.08.09 23:43
EROS ну зачем издеваться над человеком? Тут есть 2 варианта: если тебе не обязательно откуда заходить на сайт, то просто используй компонент WebBrowser из библиотеки Microsoft Internet Controls и вбей сразу нужную ссылку как адрес перехода. Но есть ещщё 1 вариант, обходной можно с помощю API заставить имитировать перемещщение, клики мыши, и нажатие кнопок клавиатуры.Дальше сам думай.

Ответить

Номер ответа: 6
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #6 Добавлено: 25.08.09 00:00

А где ты здесь увидел издевку??? Ему нужен кликер чтобы ходить по определённым сайтам и кликать ссылки и в результате зарабатывать на этом! Чтобы что то заработать, надо что то вложить... время,силы, знания или деньги.. Если знаний либо времени, либо желания заниматься всем этим нету, то вкладывай деньги.. Что из всего этого является издевкой? Или он ждет что ему ща напишут кликер, а он будет рубить капусту?

Ответить

Номер ответа: 7
Автор ответа:
 UnDeAdZak



Вопросов: 80
Ответов: 476
  Профиль | | #7 Добавлено: 25.08.09 07:20
Хм... А об этом я не падумал...Полностью согласен.За 100, нет, даже за 50% напишу прогу, которая будет переходить по определённым ссылкам, которые будут задаваться с помощю мастера.

Ответить

Номер ответа: 8
Автор ответа:
 $@ny@PG



ICQ: 468469477 

Вопросов: 71
Ответов: 196
  Профиль | | #8 Добавлено: 25.08.09 07:28
А с помощью какой API можно имитировать???

Ответить

Номер ответа: 9
Автор ответа:
 Сергей



Вопросов: 3
Ответов: 4
  Web-сайт: zhobrik.ru
 Профиль | | #9 		Добавлено: 26.08.09 19:59
  1.  
  2. Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
  3. Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
  4. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  5. Private Type POINTAPI
  6.         X As Long
  7.         Y As Long
  8. End Type
  9. Private ie As VBControlExtender
  10. Private Const MOUSEEVENTF_LEFTDOWN = &H2
  11. Private Const MOUSEEVENTF_LEFTUP = &H4
  12. Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
  13. Private Const MOUSEEVENTF_MIDDLEUP = &H40
  14. Private Const MOUSEEVENTF_RIGHTDOWN = &H8
  15. Private Const MOUSEEVENTF_RIGHTUP = &H10
  16. Private Enum ButtonClick
  17. btcLeft
  18. btcRight
  19. btcMiddle
  20. End Enum
  21. Dim p As POINTAPI
  22. Private Function MouseClick(ByVal MBClick As ButtonClick) As Boolean
  23. Dim cbuttons As Long
  24. Dim dwExtraInfo As Long
  25. Dim mevent As Long
  26. Select Case MBClick
  27. Case ButtonLeft
  28. mevent = MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP
  29. Case ButtonRight
  30. mevent = MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP
  31. Case ButtonMiddle
  32. mevent = MOUSEEVENTF_MIDDLEDOWN Or MOUSEEVENTF_MIDDLEUP
  33. Case Else
  34. MouseClick = False
  35. Exit Function
  36. End Select
  37. mouse_event mevent, 0&, 0&, cbuttons, dwExtraInfo
  38. MouseClick = True
  39. End Function

Ответить

Номер ответа: 10
Автор ответа:
 Илья



Вопросов: 1
Ответов: 48
  Профиль | | #10 Добавлено: 30.08.09 21:20
Сергей, на сколько я понял, Автокликер не в прямом смысле...

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам