Несколько вопросов

[Danya aka Spiridon]

Извините, если повторюсь! Юзать поиск нету времени! Вот мои вопросы:

1. Как написать прогу, отправляющую сообщения на IP (типа net send). Я видел много таких прог, но они очень навороченные. Мне нужна просто форма с полями для ввода IP, текста сообщения и кнопки Отправить (ну еще возможно какие-то элементы, если они необходимы!). Помогите написать код! (Пишу на VB 6.0) *

2. Как сделать прогу под дизайн XP, Макинтош? Ну, там кнопки, плавные линии и т.п.

3. Есть ли пособия по созданию скринмейтов на VB 6.0? *

4. Где можно скачать полный список WinAPI функций?

З.Ы. Пока всё! Заранее благодарен за помощь!

З.З.Ы. * Вопросы на которые мне никто не ответил!

[_Мика_]

4). www.allapi.net

Там EXE размером около 3 МВ скачиваеш, запускаеш на любую API пример подробное описание итд

[Danya aka Spiridon]

_Мика_ Огромный респект! Скачал! Рульная вещь!

А на остальные вопросы мне может кто-нить ответить?

[_Мика_]

2). Для дизайна как в XP поищи на Vbnet.ru контролы для етого. Я
оттуда качал

[Danya aka Spiridon]

А как сделать так чтобы у других контролы тоже работали?

[BOO]

По поводу работы у элементову "других"

Вообщем если ты создашь инстолятор(package wizard) ты можешь не волноваться: компоненты сами пропишутся в реестр вместе с твоей программой.

если нет: копируешь их куда хочешь , но лучше в в C:\Windows\system32... и запускаешь один раз сам компонент - он пропишется в реестр.

Но я тебе советую певый вариант - никакой возьни!

[Danya aka Spiridon]

А как юзать этот самый package wizard?

[v-adix]

по поводу контролов юзай приаттаченный файл. работает в любом windows. не компиль в ocx, подключай как user control чтобы сам контрол с собой не таскать.

[Danya aka Spiridon]

А для чего нужен AXSoft Resizer в этом архиве?

[Danya aka Spiridon]

ну, я добавил юзер контрол... сделал ехешник - отправил на сервак! а люди которые игру скачивают говорят что не идёт она!

[Danya aka Spiridon]

А на 1 и 3 вопросы ответы есть?

[FaKk2]

А на 1 и 3 вопросы ответы есть?

По поводу первого:

Код: Выделить всё

Shell "net send " & txtIP.Text & Chr(32) & txtMessage.Text

Ты это имел ввиду?

[Danya aka Spiridon]

Это через Command1_Click ведь?

[FaKk2]

Это через Command1_Click ведь?

Да хоть Form1_MouseDown

[Nick Bober]

Через Шелл это как-то не эстетично. Может лучше так:

Код: Выделить всё

Private Const NERR_Success As Long = 0&
Private Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" (yServer As Any, yToName As Byte, yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long

Public Function NetSendMessage(ByVal RcptToUser As String, ByVal FromUser As String, ByVal BodyMessage As String) As Boolean
Dim RcptTo() As Byte, From() As Byte, Body() As Byte

RcptTo = RcptToUser & vbNullChar
From = FromUser & vbNullChar
Body = BodyMessage & vbNullChar

If NetMessageBufferSend(ByVal 0&, RcptTo(0), ByVal 0&, Body(0), UBound(Body)) = NERR_Success Then
NetSendMessage = True
End If

End Function


Использование:
Test = NetSendMessage(КОМУ, ОТ КОГО, СООБЩЕНИЕ)

If Test then
msgbox "Сообщение отправлено успешно!"
Else: msgbox "Ошибка отправки сообщения!"
end if

[Danya aka Spiridon]

Короче вот - http://danya-site.nm.ru/my_progs.zip! Особо оцените прогу Net Send v1.0!

[Danya aka Spiridon]

АУ!