आयात System.Runtime.InteropServices
ByVal nInputs UIInteger के रूप में,
ByVal pInputs INPUT() के रूप में,
ByVal cbSize पूर्णांक के रूप में
) यूइंटीजर के रूप में
अंत समारोह
‘इनपुट संरचना को परिभाषित करें
संरचना इनपुट
पूर्णांक के रूप में सार्वजनिक प्रकार
पब्लिक की अस कीबोर्डडिनपुट
अंत संरचना
‘कीबोर्डिनपुट संरचना को परिभाषित करें
संरचना कीबोर्डडिनपुट
सार्वजनिक wVk यूएसशॉर्ट के रूप में
सार्वजनिक wस्कैन यूएसशॉर्ट के रूप में
सार्वजनिक dwफ़्लैग UIInteger के रूप में
UInteger के रूप में सार्वजनिक समय
IntPtr के रूप में सार्वजनिक dwExtraInfo
अंत संरचना
‘इनपुट प्रकार और मुख्य घटनाओं के लिए स्थिरांक
स्थिरांक INPUT_KEYBOARD पूर्णांक के रूप में = 1
KEYEVENTF_KEYUP को UIInteger = &H2 के रूप में स्थिरांकित करें
निजी उप बटन1_क्लिक (ऑब्जेक्ट के रूप में प्रेषक, ईवेंटआर्ग के रूप में ईवेंटआर्ग के रूप में) हैंडल बटन1.क्लिक करें
‘SendInput का उपयोग करके स्पेस बार दबाने का अनुकरण करें
सेंडस्पेसबार()
अंत उप
निजी उप सेंडस्पेसबार()
नये इनपुट के रूप में मंद इनपुट()
इनपुट.प्रकार = INPUT_KEYBOARD
इनपुट.की.wVk = &H20 ‘स्पेस बार के लिए VK_SPACE कोड
‘स्पेस बार दबाएँ
सेंडइनपुट(1, {इनपुट}, मार्शल.साइजऑफ(गेटटाइप(इनपुट)))
‘स्पेस बार जारी करें
इनपुट.की.dwफ्लैग = KEYEVENTF_KEYUP
सेंडइनपुट(1, {इनपुट}, मार्शल.साइजऑफ(गेटटाइप(इनपुट)))
अंत उप
मैंने क्या प्रयास किया है:
मैं स्क्रिप्ट लिखने के लिए वीबी का उपयोग कर रहा हूं।
मैं क्रोम और एज ब्रोसर स्पेस बार को नियंत्रित करने के लिए कोड लिखना चाहता हूं लेकिन मेरा कोड काम नहीं कर रहा है।
मुझे देखने में मदद कर सकते हैं धन्यवाद।
समाधान 1
एर्म… आपने पढ़ा कि सेंडइन्पुट क्या करता है, है ना? यह कीबोर्ड और माउस की जानकारी को उचित कतारों में फीड करता है – जिसका अर्थ है कि इसे सक्रिय एप्लिकेशन द्वारा निकाला जाता है।
चूँकि आपने अभी-अभी माउस बटन दबाया है, यह क्रोम नहीं है: यह आपका ऐप है।
आपको उन्हें एक विशिष्ट विंडो पर भेजना होगा (FindWindow और SetForegroundWindow आज़माएं) और फिर Chrome पर स्थान भेजने के लिए SaveKeys का उपयोग करें।
कोई गारंटी नहीं कि यह काम करेगा, लेकिन…
コメント