звонить из еклель

[Watcher_1]

Сообщение от ura12345678

подправил путь к своей программе но почемуто она не запускается

Может тогда лучше обратиться непосредственно к автору макросов EducatedFool?
И заплатив небольшую сумму вы в результате получите то что вам нужно.
Тем более, на сколько я знаю, Игорь много денег не берет за готовые продукты!!!

[ura12345678]

ми дуже бедни

[kuklp]

есть юсб модем есть список клиентов

Надо так понимать, что клиентам вы предоставляете услуги(товары) бесплатно.

[ura12345678]

все форумы одинаковы, я просто офисная крыса которой платят копейки начальнику насрать что я клацаю кнопки. если кто чем может помочь в втой проблеме буду очень благодарен

[kuklp]

Вот так. И денег жалко и кнопки клацать лень и учиться делать СВОЮ работу не желаю. Не, я не осуждаю. Но зная, что Игорь(EducatedFool) перешел на свой хлеб, т.е. для него это уже работа, а не увлечение, причем в нее он вкладывает гору своих кровных денег(не говорю уже о, собственно, его труде), я из солидарности не стану править его код для кого бы то ни было. Думаю и остальные форумчане так же. Поэтому подождите его отклика и если такового не последует... Кнопки в Вашем распоряжении:-) Или все же, обратитесь к нему лично.
PS Хочу еще сообщить, что на всех подобных форумах отвечают в основном одни и те же спецы. Мы все друг-друга знаем и помогаем, в том числе и друг-другу:-)

[ura12345678]

уже б создали не форум а сервис! кнопки я и так клацаю, и разбираюсь что к чему как получается. могли б лучше подсказать чем демогогию устраивать

[kuklp]

Дык есть на форуме и сервис. Подфорум называется Фриланс.
http://www.programmersforum.ru/forumdisplay.php?f=29
Только там вряд-ли дешевле будет:-)
PS Правильно писать: демАгогия.(ща меня модеры вжарят за флуд...)
PPS

лучше подсказать

Вот это демагогия! Вам не подсказать, Вы требуете(!) готового решения. А Игорь Вам подсказал.

[EducatedFool]

Сообщение от kuklp

... я из солидарности не стану править его код для кого бы то ни было. Думаю и остальные форумчане так же ...

Причем тут солидарность... исправить код не получится, ибо для звонка с USB модема требуется совершенно другое решение.
(надо работать через TAPI, прямую отправку команд в COM-порт, или через специализированный софт)

Я как-то пробовал реализовать подобное, но у меня не было USB модема для тестирования, поэтому так и не написал рабочий код.
Сейчас вроде как все есть (телефон, который можно зацепить к компу по блютусу) - но нет надобности в коде.

Возни с таким кодом много, и далеко не факт, что получится сделать универсальное решение, - поэтому я не буду связываться с подобными макросами (разве что за очень хорошие деньги - но их никто не заплатит, ибо есть универсальные программы для таки целей.)
К тому же, некоторые желающие звонить из Excel не желают платить деньги за заказанные макросы.

[ura12345678]

вот и получилось звонить из екселя, посвящается все кто пришел на форум не ради бабла, вобщем всем кроме kuklp и им подобны которые форум превращают рубалово капусты.
Ниже представле макрос который работает с разлоченым юсб модемом ZTE MF627 и установленным конет менеджером mf626-627_v1.0_Kulibin, данный менеджер позволяет осуществлять голосовые звонки. Принцип работый такой, вставить модем с сим картой установить естественно драйвера установить менеджер и запустить его, вставить макрос и наслаждаться работой. макрос не много сыроват, если звонить резко от клиента к клиенту менеджер может затупить но как практика показа такой необходимости нет, позвонил пообщался, следующий.
Выложил макрос ниже в 2 сообщениях это один макрос просто он не помещаеться в одном смс и пришлось разрезать

[ura12345678]

Private Declare Function FindWindow  Lib "user32.dll"  Alias "FindWindowA" _
 (ByVal lpClassName As String,  ByVal lpWindowName As String)  As Long


Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
 Left As Long
 Top As Long
 Right As Long
 Bottom As Long
End Type


Public Const WM_CHAR = &H102
Public Const WM_LBUTTONDOWN = 513
Public Const WM_LBUTTONUP = 514
Public Const MK_LBUTTON = 1
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const VK_0 = &H30
Public Const VK_1 = &H31
Public Const VK_2 = &H32
Public Const VK_3 = &H33
Public Const VK_4 = &H34
Public Const VK_5 = &H35
Public Const VK_6 = &H36
Public Const VK_7 = &H37
Public Const VK_8 = &H38
Public Const VK_9 = &H39
Public Const VK_RETURN = &HD
Public Const GW_HWNDNEXT = 2
Private Const EM_REPLACESEL As Long = &HC2&
Public Const WM_SETFOCUS = 7

Продолжение кода - в следующем посте