Три вопроса

[Ptereks]

Я давно не был на форуме, и у меня накопились вопросы по vb. Возможно эти темы уже затрагивались на форуме, но т.к. форум большой их найти крайне сложно

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

2. Как с помощью vb замерить скока и какой процесс ест памяти.
3. Ну и последний вопрос, как можно заставить vb скопировать текст из своего окна в окно другой программы, причом, что бы vb делал это бесперерывно,и автоматически.

[alibek]

1. Можно. Поиск по Rnd (с вариациями).
2. Можно. Поиск по WMI (например).
3. Можно. Поиск по GetWindowText/SetWindowText. Но лучше не надо.

[Avtopic]

По поводу “1”
Здесь почти готовая функция
http://bbs.vbstreets.ru/viewtopic.php?t=23930&highlight=

[Avtopic]

К стати, функция от alibek-а

[Ptereks]

Спасибо Avtopic и alibek ,я разобралсяс первыми двумя вопросами.

А с третим вопросом возникла небольшая проблемка.Функции
GetWindowText/SetWindowText вполне подходят, но немогли бы вы обьяснить, как ими пользоваться.

Вобщем суть в том в окне программы VB есть текс бокс,от туда копируется весь текст и открывается второе окно,в которое вставляется этот самый текст.

[Alex[fj]]

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

3. Ну и последний вопрос, как можно заставить vb скопировать текст из своего окна в окно другой программы, причом, что бы vb делал это бесперерывно,и автоматически.

Никак Ptereks решил сломать какую-то программку... Вас не наводят вопросы на странные мысли?

[Ptereks]

Alex[fj]

Никак Ptereks решил сломать какую-то программку... Вас не наводят вопросы на странные мысли?

Сломать программу =), парень да ты загнул.Нет я задавал вопросы не для этого, если тебя смутила генерация номера,то я хочу использовать её в мирных целях, а что касается копирования,то,что плохова в том,что мне надо,в то время пока меня нет дома, копировать текст страниц(с сайтов) и сохранять их в word-файле?
Прежде чем обвинять человека,хорошой подумай и приведи доказательства!

[Alex[fj]]

Ладно, Ptereks, без обид... Просто вопросы натолкнули... Глупо...

Прежде чем обвинять человека,хорошой подумай и приведи доказательства!

И обвинять - Боже упаси! Никого я не обвинял и обвинять не собираюсь.
Удачи в написании программы!

[Ptereks]

Alex[fj]
Оки, без бид, спасиб за пожелание.

Люди обьяснити пожалуста, как пользоваться функцией GetWindowText/SetWindowText , если не сложно киньте ссылку на тему, а лучше приведите примерчик кода.

[Viper]

Ну держи по доброте душевной

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

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Private m_hWnd As Long

Private sub btnGetText_Click()
Dim sText As String
Dim cText As Long

    cText = GetTextLength(m_hWnd)
    If cText > 0 Then
        sText = String$(cText + 1, Chr(0))
        cText = GetWindowText(m_hWnd, sText, cText +1)
        If cText > 0 Then
            MsgBox Left$(sText, cText)
        End If
    End If
End Sub

Private sub btnSetText_Click()
Dim sText As String
Dim cText As Long

    sText = txtSetText.Text
    cText = Len(sText)
    if cText > 0 Then
        SetWindowText m_hWnd, sText, cText +1
    End If
End Sub

Предполагается, что у тебя есть форма, на которой две кнопки btnGetText и btnSetText и текстовое поле txtSetText, в которое вводится желаемый текст. Переменная m_hWnd должна содержать описатель окна.

З.Ы. Сие работает только для "своих" окон!